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
MkDir App.Path & "\users\" & Splice(2)
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
MkDir App.Path & "\users\" & Splice(2)
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
MkDir App.Path & "\users\" & Splice(2)
Open App.Path & "\users\" & Splice(2) & "\ipreglog.log" For Append As #1
Print #1, inip
Close #1

如果您试图创建（MkDir）一个已经存在的目录，您将得到一个错误75，路径/文件访问错误。您需要修改代码以检查目录，并仅在目录不存在时创建它

If Len(Dir(App.Path & "\users" & Splice(2)) = 0 Then
    MkDir App.Path & "\users" & Splice(2)
End If

等等。

如果您试图创建（MkDir）一个已经存在的目录，您将得到一个错误75，路径/文件访问错误。您需要修改代码以检查目录，并仅在目录不存在时创建它

If Len(Dir(App.Path & "\users" & Splice(2)) = 0 Then
    MkDir App.Path & "\users" & Splice(2)
End If

---

等等。

我建议您的进程在创建目录的路径上没有必要的权限？默认情况下，用户对c:\Users具有修改权限

---

如果未使用

以管理员身份运行提升进程，则在Windows 7上可能会出现此问题。这对于VB6 IDE是正确的，并且默认情况下不会以管理员身份运行。
我建议您的进程在创建目录的路径上没有必要的权限？默认情况下，用户对c:\Users具有修改权限

如果未使用
以管理员身份运行提升进程，则在Windows 7上可能会出现此问题。VB6 IDE也是如此，默认情况下它不会以管理员的身份运行。
您知道我对这个问题的回答也在您之前的一个非常类似的问题中。在调试模式下逐步检查代码，并指出您在哪一行代码中出现错误。@Baaner在这一行中MkDir App.Path&“\users\”&Splice（2）@Pars应用程序-我假设该目录不存在，因为您现在正在检查它。在MkDir命令之前添加“Debug.Print App.Path&“\users\”&Splice（2）”（不带引号）命令，并确保具有有效的路径。如果路径中有空格，则必须将整个路径用双引号括起来。您在哪个操作系统中运行此操作？您知道我对这个问题的回答也在您之前的一个非常类似的问题中。请在调试模式下逐步检查代码，并准确指出您在哪一行代码中出错。@Baaner在这一行MkDir App.path&“\users\”&Splice（2）@Pars App-我假设该目录不存在，因为您现在正在检查它。在MkDir命令之前添加“Debug.Print App.Path&“\users\”&Splice（2）”（不带引号）命令，并确保具有有效的路径。如果路径中有空格，则必须将整个路径用双引号括起来。您在哪个操作系统中运行此操作？@Pars-您已接受此答案，那么您是如何解决错误的？请给其他人留下一些信息，以便他们能从你的经历中受益。@Pars-你已经接受了这个答案，那么你是如何解决你的错误的呢？请给其他人留下一些信息，以便他们能从你的经历中受益。