如何使用App.Path

Question

我在VB6中制作了这些代码，但是当我运行它时，Vb说我找不到Path，有人可以帮我，这是我的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

由于

Answer 1

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

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

Answer 2

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

1. 使用断点（或MsgBox）暂停代码并告诉您正好尝试打开哪个路径。
2. 当您暂停代码时，请转到Windows资源管理器并检查路径是否存在 一个。检查路径名中的空格。
   湾检查所有目录是否存在。 MkDir一次只创建一个目录，它需要直接父项存在（如Deanna所说）。

您正在写入App.Path下面的文件。注意virtualisation of Program Files。 Windows通过秘密写入虚拟文件夹来阻止程序写入Program Files及其子目录。