如何在App.Path中訪問？

當我在VB中運行這段代碼時，VB說我「補丁文件訪問錯誤」。有誰能夠幫助我？這裏是我的代碼：如何在App.Path中訪問？

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

來源

2011-07-28 Mr.James

你知道我對這個問題的回答也是你之前非常類似的問題之一。 – jac

在調試模式下遍歷您的代碼，並確切地指出哪一行代碼會出現錯誤。 – jac

@Baaner在這一行MkDir App.Path＆「\ users \」＆Splice（2） –

如果您嘗試創建（MKDIR）已經存在，你會得到一個錯誤75，路徑/文件訪問錯誤的目錄。你需要修改你的代碼來檢查目錄，並且只有當它不存在時才創建它。

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

等

來源

2011-07-28 17:56:06 jac

我這樣做，但我再次得到這個錯誤 –

@Pars - 你已經接受這個答案，所以你是如何解決你的錯誤？請爲他人留下一些信息，以便他們可以從您的經歷中受益。 –

我建議你的進程不具有路徑上的必要的權限，以創建目錄？默認情況下，用戶對c：\用戶具有修改權限

如果您尚未使用Run As Administrator提升進程，則可以在Windows 7上獲得此問題。對於VB6 IDE來說也是如此，默認情況下這不會以管理員身份運行。

來源

2011-07-29 11:16:58

如何在App.Path中訪問？

回答

相關問題