爲什麼我的源文件夾和目標文件夾合併名稱？我想源文件夾我的目標中

Dim WshNetwork,objNetwork, WshShell, objFSO, objItem 
Set objNetwork = CreateObject("Wscript.Network") 
Set WshNetwork = WScript.CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set WSHShell = CreateObject("WScript.Shell") 
If not objFSO.FolderExists("C:\Backups") Then 
    objFSO.CreateFolder "C:\Backups" 
Else 
End If 
If not objFSO.FolderExists("C:\Backups\" & strUserName) Then 
    objFSO.CreateFolder ("C:\Backups\" & strUserName) 
Else 
End If 
Set FSO = CreateObject("Scripting.FileSystemObject") 
strUserName = objNetwork.UserName 
Set oMainFolder = FSO.GetFolder("C:\Users\" & strUserName &"\Documents\") 
For Each oFolder In oMainFolder.SubFolders 
    On Error Resume Next 
    If oFolder.Name <> "My Music" and oFolder.Name <> "My Pictures" and oFolder.Name <> "My Videos" Then 
     FSO.CopyFolder ("C:\Users\" & strUserName &"\Documents\") & oFolder.Name, ("C:\Backups\" & strUserName) & oFolder.Name, True 

     FSO.CopyFile ("C:\Users\" & strUserName &"\Documents\*.*"), ("C:\Backups\" & strUserName), True 
    End If 
Next

來源

2015-05-31 Namemybullets

因爲這裏

If not objFSO.FolderExists("C:\Backups\" & strUserName) Then

變量strUserName未初始化/空。

來源

2015-05-31 10:31:43

如果不是objFSO.FolderExists（「C：\ Backups \」＆strUserName＆「\」）似乎沒有改變我的問題。 – Namemybullets

@Namemybullets - 請反思「初始化」的含義，並記住VBScript語句按順序執行。 –

-_- Doh，lol。謝謝！我用你的提示修復了它。所以我將strUserName上移到了將源文件夾分隔成兩個的變量區域。文件進入用戶名，文件夾進入用戶名+源。爲了解決這個問題，我回去並在Copy.Folder中的目標文件夾路徑後添加「\」。非常感激！再次感謝你：D – Namemybullets

Dim WshNetwork,objNetwork, WshShell, objFSO, objItem 

Set objNetwork = CreateObject("Wscript.Network") 
Set WshNetwork = WScript.CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set WSHShell = CreateObject("WScript.Shell") 
Set FSO = CreateObject("Scripting.FileSystemObject") 

strUserName = objNetwork.UserName 

Set oMainFolder = FSO.GetFolder("C:\Users\" & strUserName &"\Documents\") 

If not objFSO.FolderExists("C:\MyFiles") Then 
    objFSO.CreateFolder "C:\MyFiles" 
Else 
End If 

If not objFSO.FolderExists("C:\MyFiles\" & strUserName & "\") Then 
    objFSO.CreateFolder ("C:\MyFiles\" & strUserName & "\") 
Else 
End If 

For Each oFolder In oMainFolder.SubFolders 
    On Error Resume Next 
    If oFolder.Name <> "My Music" and oFolder.Name <> "My Pictures" and 
    oFolder.Name <> "My Videos" Then 
    FSO.CopyFolder ("C:\Users\" & strUserName &"\Documents\") & oFolder.Name, _ 
     ("C:\MyFiles\" & strUserName) & "\" & oFolder.Name, True 
    FSO.CopyFile ("C:\Users\" & strUserName &"\Documents\*.*"), _ 
     ("C:\MyFiles\" & strUserName), True 
    End If 
Next

來源

2015-05-31 11:14:19 Namemybullets

爲什麼我的源文件夾和目標文件夾合併名稱？我想源文件夾我的目標中

回答

相關問題