Vb6 如何使用App.Path

我用VB6编写了这些代码，但当我运行它时，Vb说找不到我的路径，有人能帮我吗，这是我的Vb代码：

MkDir App.Path & "\users\" & Splice(2)
Open App.Path & "\users\" & Splice(2) & "\pass.txt" For Append As #1
Print #1, Splice(3)
Close #1
Open App.Path & "\users\" & Splice(2) & "\list.txt" For Append As #1
Print #1, "" 'we have to put something into the buddy list
                 'so well put nothing ;)
Close #1
Open App.Path & "\users\" & Splice(2) & "\info.txt" For Append As #1
Print #1, "" 'we have to put something into the buddy list
                 'so well put nothing ;)
Close #1
Open App.Path & "\ipreglog.log" For Append As #1
    Print #1, inip
Close #1

---

感谢

MkDir不是递归的，因此它需要直接父级存在。 请尝试确保用户目录首先存在：

MkDir App.Path & "\users\"
MkDir App.Path & "\users\" & Splice(2)

---

MkDir不是递归的，因此它要求直接父级存在。 请尝试确保用户目录首先存在：

MkDir App.Path & "\users\"
MkDir App.Path & "\users\" & Splice(2)

---

呃，可能路径不存在。你需要进一步调查才能找到确切的问题

使用断点（或MsgBox）暂停代码并准确地告诉您它正试图打开的路径

暂停代码后，转到Windows资源管理器，检查路径是否存在。
A.检查路径名中是否有空格。
B检查所有目录是否存在。MkDir一次只生成一个目录，它要求直接父目录存在（正如Deanna所说）

---

您正在写入App.Path下的文件。小心。Windows通过秘密写入虚拟文件夹来防止程序写入

程序文件

及其子目录。

呃，路径可能不存在。你需要进一步调查才能找到确切的问题

使用断点（或MsgBox）暂停代码并准确地告诉您它正试图打开的路径

暂停代码后，转到Windows资源管理器，检查路径是否存在。
A.检查路径名中是否有空格。
B检查所有目录是否存在。MkDir一次只生成一个目录，它要求直接父目录存在（正如Deanna所说）

---

您正在写入App.Path下的文件。小心。Windows通过秘密写入虚拟文件夹来防止程序写入

程序文件

及其子目录。

在尝试添加断点以查看其实际尝试使用的路径时，会遇到类似的问题。您还可以通过将路径分配给变量并使用该变量来减少出错的可能性：BasePath=App.path&“\users\”&Splice（2）MkDir BasePath Open BasePath&“\pass.txt”For Append As#1yup，确切地说，我对\users\patchWell有问题，我的问题已经解决了，但是没有我得到路径/文件访问错误。在尝试添加断点以查看它实际尝试使用的路径时，会遇到类似的问题。您还可以通过将路径分配给一个变量并使用它来减少错误发生的可能性：BasePath=App.path&“\users\”&Splice（2）MkDir BasePath Open BasePath&“\pass.txt”For Append As#1yup，确切地说，我有\users\patchWell的问题，我的问题已经解决，但没有我得到路径/文件访问错误，我的问题已经解决但没有路径/文件访问错误我的问题已经解决但没有路径/文件访问错误我的问题已经解决但没有路径/文件访问错误它试图访问的确切路径是什么？这条路对吗。检查目录是否存在，检查目录和文件的安全权限。你能在另一个程序（比如记事本）中编辑该路径上的文件吗？看看这些代码：'BasePath=App.path&“\users\”&Splice（2）MkDir BasePath Open App.path&“\users\”&Splice（2）和“\pass.txt”，用于附加为#1 Print”&1，Splice（3）Close#1 BasePath=App.path&“\users\”&Splice（2）MkDir BasePath Open App.path&“\users\”&Splice（2）和“\list.txt”用于附加为“1打印”1、“关闭”1 BasePath=App.Path&“\users\”&Splice（2）MkDir BasePath Open App.Path&“\users\”&Splice（2）和“\info.txt”用于附加为“1打印”1、“关闭”1“好吧，我的问题已经解决，但没有我得到路径/文件访问错误它试图访问的确切路径是什么？这条路对吗。检查目录是否存在，检查目录和文件的安全权限。你能在另一个程序（比如记事本）中编辑该路径上的文件吗？看看这些代码：'BasePath=App.path&“\users\”&Splice（2）MkDir BasePath Open App.path&“\users\”&Splice（2）和“\pass.txt”，用于附加为#1 Print”&1，Splice（3）Close#1 BasePath=App.path&“\users\”&Splice（2）MkDir BasePath Open App.path&“\users\”&Splice（2）和“\list.txt”用于附加为“1打印”1、“关闭”1 BasePath=App.Path和“\users\”&Splice（2）MkDir BasePath Open App.Path和“\users\”&Splice（2）和“\info.txt”用于附加为“1打印”1、“关闭”