Vb6 App.Path中的路径/文件访问错误

我编写了这些代码，当我运行它时，vb6告诉我路径/文件访问错误，有人能帮我吗：

BasePath = App.Path & "\" & "\users\"
MkDir BasePath
Open BasePath & name & "\list.txt" For Input As #1

您创建了c:\xxx\users\然后打开c:\xxx\users\name\list.txt，但是您还没有创建名称子目录，它不会自动发生

您需要创建\用户，然后创建\名称。您可能还应该说明如果在现有目录中运行mkdir时将发生的错误

差不多

您创建了c:\xxx\users\然后打开c:\xxx\users\name\list.txt，但是您还没有创建名称子目录，它不会自动发生

您需要创建\用户，然后创建\名称。您可能还应该说明如果在现有目录中运行mkdir时将发生的错误

差不多

我认为您的问题在于名称变量：

例如：

假设Basepath=C:\Temp\users，name=FooBar

MKDIR为BasePath创建路径

Open命令将尝试在C:\Temp\Users\FooBar\List.txt处创建路径

由于尚未创建FooBar子目录，因此会出现文件/路径访问错误

升级代码：

我怀疑您的用户目录已经存在，因此您需要创建名称文件夹：

BasePath = App.Path & "\users\"
MkDir BasePath & name
Open BasePath & name & "\list.txt" For Input As #1

我认为您的问题在于名称变量：

例如：

假设Basepath=C:\Temp\users，name=FooBar

MKDIR为BasePath创建路径

Open命令将尝试在C:\Temp\Users\FooBar\List.txt处创建路径

由于尚未创建FooBar子目录，因此会出现文件/路径访问错误

升级代码：

我怀疑您的用户目录已经存在，因此您需要创建名称文件夹：

BasePath = App.Path & "\users\"
MkDir BasePath & name
Open BasePath & name & "\list.txt" For Input As #1

---

如果您正在创建的目录已经存在，您将在调用MkDir时得到您描述的错误

我建议在尝试创建目录之前，首先检查目录是否存在：

If (Dir(BasePath, vbDirectory) = "") Then
   MkDir BasePath
End If

---

如果您正在创建的目录已经存在，您将在调用MkDir时得到您描述的错误

我建议在尝试创建目录之前，首先检查目录是否存在：

If (Dir(BasePath, vbDirectory) = "") Then
   MkDir BasePath
End If

---

那么我该怎么做，你能帮我吗？那么我该怎么做，你能帮我吗？我很困惑，你能给我写代码吗，因为我是这一部分的新手。我很困惑，你能给我写代码吗，因为我是这一部分的新手。