App.Pathでアクセスするには？

Question

私は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 

Answer 1

あなたはすでにあなたがエラー75、パス/ファイルアクセスエラーが発生しますが存在するディレクトリをを作成します（mkdir）しようとします。ディレクトリをチェックし、ディレクトリが存在しない場合にのみ作成するようにコードを変更する必要があります。

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

など

Answer 2

私はあなたのプロセスは、ディレクトリを作成するパスに必要な権限を持っていないことを示唆しているのでしょうか？既定では、ユーザーはc：\ Usersの変更権限を持っています

Run As Administratorを使用してプロセスを昇格していない場合、Windows 7でこの問題が発生する可能性があります。これはVB6 IDEにも当てはまりますが、これはデフォルトでは管理者として実行されません。