Vbscript 为什么我的源文件夹和目标文件夹合并了名称？我希望源文件夹位于目标文件夹内 Dim WshNetwork、objNetwork、WshShell、objFSO、objItem 设置objNetwork=CreateObject（“Wscript.Network”） 设置WshNetwork=WScript.CreateObject（“WScript.Shell”） 设置objFSO=CreateObject（“Scripting.FileSystemObject”） 设置WSHShell=CreateObject（“WScript.Shell”） 如果不存在objFSO.FolderExists（“C:\Backups”），则 objFSO.CreateFolder“C:\Backups” 其他的 如果结束 如果不存在objFSO.FolderExists（“C:\Backups\”&strUserName），则 objFSO.CreateFolder（“C:\Backups\”和strUserName） 其他的 如果结束 设置FSO=CreateObject（“Scripting.FileSystemObject”） strUserName=objNetwork.UserName 设置oMainFolder=FSO.GetFolder（“C:\Users\”和strUserName&“\Documents\”） 对于oMainFolder.SubFolders中的每个文件夹 出错时继续下一步 如果是older.Name“我的音乐”和older.Name“我的图片”和older.Name“我的视频”，那么 FSO.CopyFolder（“C:\Users\”&strUserName&“\Documents\”）&oFolder.Name（“C:\Backups\”&strUserName）&oFolder.Name，True FSO.CopyFile（“C:\Users\”&strUserName&“\Documents\*.*），（“C:\Backups\”&strUserName），True 如果结束 下一个 因为这里 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

变量

strUserName

未初始化/为空。

因为

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

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

变量

strUserName

未初始化/为空。

因为

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

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

变量

strUserName

未初始化/为空。

因为

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

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

变量

strUserName

未初始化/为空。

Dim WshNetwork、objNetwork、WshShell、objFSO、objItem
If not objFSO.FolderExists("C:\Backups\" & strUserName) Then

设置objNetwork=CreateObject（“Wscript.Network”）
设置WshNetwork=WScript.CreateObject（“WScript.Shell”）
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置WSHShell=CreateObject（“WScript.Shell”）
设置FSO=CreateObject（“Scripting.FileSystemObject”）
strUserName=objNetwork.UserName
设置oMainFolder=FSO.GetFolder（“C:\Users\”和strUserName&“\Documents\”）
如果不存在objFSO.FolderExists（“C:\MyFiles”），则
objFSO.CreateFolder“C:\MyFiles”
其他的
如果结束
如果不存在objFSO.FolderExists（“C:\MyFiles\”&strUserName&“\”），则
objFSO.CreateFolder（“C:\MyFiles\”和strUserName&“\”）
其他的
如果结束
对于oMainFolder.SubFolders中的每个文件夹
出错时继续下一步
如果是older.Name“我的音乐”和older.Name“我的图片”和
oFolder.那就给我的视频起名吧
folder.Name的FSO.CopyFolder（“C:\Users\”&strUserName&“\Documents\”）&oFolder.Name_
（“C:\MyFiles\”和“\”&oFolder.Name，True
FSO.CopyFile（“C:\Users\”和strUserName&“\Documents\*.*）_
（“C:\MyFiles\”和strUserName），True
如果结束
下一个

Dim WshNetwork、objNetwork、WshShell、objFSO、objItem
设置objNetwork=CreateObject（“Wscript.Network”）
设置WshNetwork=WScript.CreateObject（“WScript.Shell”）
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置WSHShell=CreateObject（“WScript.Shell”）
设置FSO=CreateObject（“Scripting.FileSystemObject”）
strUserName=objNetwork.UserName
设置oMainFolder=FSO.GetFolder（“C:\Users\”和strUserName&“\Documents\”）
如果不存在objFSO.FolderExists（“C:\MyFiles”），则
objFSO.CreateFolder“C:\MyFiles”
其他的
如果结束
如果不存在objFSO.FolderExists（“C:\MyFiles\”&strUserName&“\”），则
objFSO.CreateFolder（“C:\MyFiles\”和strUserName&“\”）
其他的
如果结束
对于oMainFolder.SubFolders中的每个文件夹
出错时继续下一步
如果是older.Name“我的音乐”和older.Name“我的图片”和
oFolder.那就给我的视频起名吧
folder.Name的FSO.CopyFolder（“C:\Users\”&strUserName&“\Documents\”）&oFolder.Name_
（“C:\MyFiles\”和“\”&oFolder.Name，True
FSO.CopyFile（“C:\Users\”和strUserName&“\Documents\*.*）_
（“C:\MyFiles\”和strUserName），True
如果结束
下一个

Dim WshNetwork、objNetwork、WshShell、objFSO、objItem
设置objNetwork=CreateObject（“Wscript.Network”）
设置WshNetwork=WScript.CreateObject（“WScript.Shell”）
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置WSHShell=CreateObject（“WScript.Shell”）
设置FSO=CreateObject（“Scripting.FileSystemObject”）
strUserName=objNetwork.UserName
设置oMainFolder=FSO.GetFolder（“C:\Users\”和strUserName&“\Documents\”）
如果不存在objFSO.FolderExists（“C:\MyFiles”），则
objFSO.CreateFolder“C:\MyFiles”
其他的
如果结束
如果不存在objFSO.FolderExists（“C:\MyFiles\”&strUserName&“\”），则
objFSO.CreateFolder（“C:\MyFiles\”和strUserName&“\”）
其他的
如果结束
对于oMainFolder.SubFolders中的每个文件夹
出错时继续下一步
如果是older.Name“我的音乐”和older.Name“我的图片”和
oFolder.那就给我的视频起名吧
folder.Name的FSO.CopyFolder（“C:\Users\”&strUserName&“\Documents\”）&oFolder.Name_
（“C:\MyFiles\”和“\”&oFolder.Name，True
FSO.CopyFile（“C:\Users\”和strUserName&“\Documents\*.*）_
（“C:\MyFiles\”和strUserName），True
如果结束
下一个

Dim WshNetwork、objNetwork、WshShell、objFSO、objItem
设置objNetwork=CreateObject（“Wscript.Network”）
设置WshNetwork=WScript.CreateObject（“WScript.Shell”）
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置WSHShell=CreateObject（“WScript.Shell”）
设置FSO=CreateObject（“Scripting.FileSystemObject”）
strUserName=objNetwork.UserName
设置oMainFolder=FSO.GetFolder（“C:\Users\”和strUserName&“\Documents\”）
如果不存在objFSO.FolderExists（“C:\MyFiles”），则
objFSO.CreateFolder“C:\MyFiles”
其他的
如果结束
如果不存在objFSO.FolderExists（“C:\MyFiles\”&strUserName&“\”），则
objFSO.CreateFolder（“C:\MyFiles\”和strUserName&“\”）
其他的
如果结束
对于oMainFolder.SubFolders中的每个文件夹
出错时继续下一步
如果是older.Name“我的音乐”和older.Name“我的图片”和
oFolder.那就给我的视频起名吧
folder.Name的FSO.CopyFolder（“C:\Users\”&strUserName&“\Documents\”）&oFolder.Name_
（“C:\MyFiles\”和“\”&oFolder.Name，True
FSO.CopyFile（“C:\Users\”和strUserName&“\Documents\*.*）_
（“C:\MyFiles\”和strUserName），True
如果结束
下一个

If not objFSO.FolderExists（“C:\Backups\”&strUserName&“\”）似乎不存在