Мне нужно сохранить, переместить и удалить файл. Но когда я делаю это, я хочу, чтобы он сохранял мои файлы в документах пользователя, который вошел в систему.

Вот мой код:

Set oWS = WScript.CreateObject("WScript.Shell")
' Get the %userprofile% in a variable, or else it won't be recognized
userProfile = oWS.ExpandEnvironmentStrings( "%userprofile%" )


objDoc.SaveAs("userprofile & "\Downloads\test.doc")
objWord.Quit

Const strFolder = "userprofile & "\Downloads\System Information\", strFile = "userprofile & "\Downloads\test.doc"
Const Overwrite = True
Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(strFolder) Then
  oFSO.CreateFolder strFolder
End If

oFSO.CopyFile strFile, strFolder, Overwrite

oFSO.DeleteFile("userprofile & "\Downloads\test.doc")