Question

Well i made these codes and when i run it the vb6 said me Path/File Access Error , can anyone help me:

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

Answer 1

You make c:\xxx\users\ then open c:\xxx\users\name\list.txt but you have not created the name sub directory, it wont happen automatically.

You would need to create \users, then \name. (You should probably also account for the error that will occur if you mkdir an existing directory)

Something like

sub foo
   Dim BasePath As String
   Dim name As String: name = "bob"

   '// get App.Path accounting for "DRIVE:\" which has a trailing \    
   Dim root As String: root = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "") 

   BasePath = root & "users\"

   makeDir BasePath
   makeDir BasePath & name & "\"

   '//you have this:
   Open BasePath & name & "\list.txt" For Input As #1
   '//but if you have just created the directory, the file wont exist so this will error?
end sub

Sub makeDir(sPath As String)
    If Len(Dir(sPath, vbDirectory)) = 0 Then MkDir sPath
End Sub