Попытка кодировать в первый раз, но не удалось с расположением файла

Question

Проблема в том, что я пытался создать файл на чужом рабочем столе, но я не знаю, что писать в пользователях.

Я пытался "C:\Users\" & strUser & "\desktop\Test"

Set fso = CreateObject("Scripting.filesystemobject")
  fso.Createfolder "C:\Users\" & strUser & "\desktop\Test"

ошибка: не удается найти местоположение файла.

Answer 1

Я думаю, что ваш код будет работать, если вы просто добавите \ в конце вашего пути:

Set fso = CreateObject("Scripting.filesystemobject")
fso.Createfolder "C:\Users\" & strUser & "\desktop\Test\"

Answer 2

Используйте специальную функцию оболочки папки, чтобы вернуть путь к рабочему столу.

set objShell = Wscript.CreateObject("Wscript.Shell")
strDesktopPath = objShell.SpecialFolders("Desktop")

Set fso = CreateObject("Scripting.filesystemobject") 
fso.Createfolder strDesktopPath & "\Test"