如何使用 App.Path

Question

好吧，我用 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

谢谢

Answer 1

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

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

Answer 2

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

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

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