Копирование 2 файлов в пути текущего профиля пользователя

Question

Я пытаюсь скопировать несколько файлов по следующему пути:

C: \ Users \ имя пользователя \ AppData \ Roaming \ Macromedia \ Flash Player \ WWW. macromedia.com \ Bin \ adobeconnectaddin

Я использую VBS и сценарий, я использую это следующим образом:

DestinationFile1 = ("C:\Users" + Path + "\AppData\Roaming\Macromedia\Flash Player\www.macromedia.com\bin\adobeconnectaddin\adobeconnectaddin.exe") 
DestinationFile2 = ("C:\Users" + Path + "\AppData\Roaming\Macromedia\Flash Player\www.macromedia.com\bin\adobeconnectaddin\digest.s") 
SourceFile1 = "adobeconnectaddin.exe" 
SourceFile2 = "digest.s" 
path=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%UserProfile%") 
DestinationPath = ("C:\Users" + path + "\AppData\Roaming\Macromedia\Flash Player\www.macromedia.com\bin\adobeconnectaddin") 
Dim objNetwork 
Dim userName 
Dim FSO 
Dim Folder 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set objNetwork = CreateObject("WScript.Network") 
userName = objNetwork.userName 
If NOT (FSO.FolderExists(Path + "\AppData\Roaming\Macromedia")) Then 


    FSO.CreateFolder(Path + "\AppData\Roaming\Macromedia") 
End If 
If NOT (FSO.FolderExists(Path + "\AppData\Roaming\Macromedia\Flash Player")) Then 
    ' Delete this if you don't want the MsgBox to show 
    'MsgBox("Local folder doesn't exists, creating...") 

    ' Create folder 
    'MsgBox("C:\" + splitString(2) + "\ProgramData\Cisco\Cisco AnyConnect Secure Mobility Client") 
    FSO.CreateFolder(Path + "\AppData\Roaming\Macromedia\Flash Player") 
End If 
If NOT (FSO.FolderExists(Path + "\AppData\Roaming\Macromedia\Flash Player\www.macromedia.com")) Then 
    ' Delete this if you don't want the MsgBox to show 
    'MsgBox("Local folder doesn't exists, creating...") 

    ' Create folder 
    'MsgBox("C:\" + splitString(2) + "\ProgramData\Cisco\Cisco AnyConnect Secure Mobility Client\Profile") 
    FSO.CreateFolder(Path + "\AppData\Roaming\Macromedia\Flash Player\www.macromedia.com") 
End If 
If NOT (FSO.FolderExists(Path + "\AppData\Roaming\Macromedia\Flash Player\www.macromedia.com\bin")) Then 
    ' Delete this if you don't want the MsgBox to show 
    'MsgBox("Local folder doesn't exists, creating...") 

    ' Create folder 
    'MsgBox("C:\" + splitString(2) + "\ProgramData\Cisco\Cisco AnyConnect Secure Mobility Client\Profile") 
    FSO.CreateFolder(Path + "\AppData\Roaming\Macromedia\Flash Player\www.macromedia.com\bin") 
End If 
If NOT (FSO.FolderExists(Path + "\AppData\Roaming\Macromedia\Flash Player\www.macromedia.com\bin\adobeconnectaddin")) Then 
    ' Delete this if you don't want the MsgBox to show 
    'MsgBox("Local folder doesn't exists, creating...") 

    ' Create folder 
    'MsgBox("C:\" + splitString(2) + "\ProgramData\Cisco\Cisco AnyConnect Secure Mobility Client\Profile") 
    FSO.CreateFolder(Path + "\AppData\Roaming\Macromedia\Flash Player\www.macromedia.com\bin\adobeconnectaddin") 
End If 
'All folders created, if non-existent 

'Check to see if the files already exists in the destination folder 

If fso.FileExists(DestinationFile1) Then 
     'Check to see if the file is read-only 
     If Not fso.GetFile(DestinationFile1).Attributes And 1 Then 
      'The file exists and is not read-only. Safe to replace the file. 
      fso.CopyFile SourceFile1, DestinationPath, True 
     Else 
      'The file exists and is read-only. 
      'Remove the read-only attribute 
      fso.GetFile(DestinationFile1).Attributes = fso.GetFile(DestinationFile1).Attributes - 1 
      'Replace the file 
      fso.CopyFile SourceFile1, DestinationPath, True 
      'Reapply the read-only attribute 
      fso.GetFile(DestinationFile1).Attributes = fso.GetFile(DestinationFile1).Attributes + 1 
     End If 
    Else 
     'The file does not exist in the destination folder. Safe to copy file to this folder. 
     fso.CopyFile SourceFile1, DestinationPath, True 
    End If 
If fso.FileExists(DestinationFile2) Then 
     'Check to see if the file is read-only 
     If Not fso.GetFile(DestinationFile2).Attributes And 1 Then 
      'The file exists and is not read-only. Safe to replace the file. 
      fso.CopyFile SourceFile2, DestinationPath, True 
     Else 
      'The file exists and is read-only. 
      'Remove the read-only attribute 
      fso.GetFile(DestinationFile2).Attributes = fso.GetFile(DestinationFile2).Attributes - 1 
      'Replace the file 
      fso.CopyFile SourceFile2, DestinationPath, True 
      'Reapply the read-only attribute 
      fso.GetFile(DestinationFile2).Attributes = fso.GetFile(DestinationFile2).Attributes + 1 
     End If 
    Else 
     'The file does not exist in the destination folder. Safe to copy file to this folder. 
     fso.CopyFile SourceFile2, DestinationPath, True 
    End If 
Set fso = Nothing 

Теперь, когда я бегу, я получаю сообщение об ошибке: Bad имя файла или номер.

Очки отметить:

1. Структура папок будет создаваться в порядке
2. копия ошибки для задач CopyFile.

Answer 1

Мне кажется, что ваш путь еще не установлен, когда вы создаете destinationFile1 и destinationFile2.

Вы пробовали установить путь до этих двух?