Как работать с 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 и проверьте, существует ли путь.
   а. Проверьте наличие пробелов в пути.
   б. Убедитесь, что все каталоги существуют. MkDir создает только один каталог за раз, он требует наличия непосредственного родителя (как говорит Динна).

Вы пишете в файлы под App.Path. Остерегайтесь виртуализации программных файлов . Windows запрещает программам писать в Program Files и его подкаталогах, вместо этого тайно записывая в виртуальную папку.