Question

好的，所以我有一个完美运行的脚本...减去它没有真正将我的MyDocuments中的文件/文件夹复制到我的新文件夹中这一事实。我一遍又一遍地绞尽脑汁，尝试了几个不同的命令来判断它是否有效。它复制了Documents文件夹中的Mymusic文件夹，但没有选择放在那里的文件夹和文件。以下是我目前设置的脚本......

Option Explicit

Dim objWShell, userName, objFso, Wshshell, strDocuments, strLocation

Set objFso = WScript.CreateObject("Scripting.FileSystemObject")

Set objWShell = WScript.CreateObject("WScript.Shell")

Set WshShell = Wscript.CreateObject("WScript.Shell")

userName = objWShell.expandEnvironmentStrings("%userName%")

If Not objFso.FolderExists("C:\" + "Backups\") Then
  objFso.CreateFolder ("C:\" + "Backups\")
End If

If Not objFso.FolderExists("C:\Backups\" + userName +"\") Then
  objFso.CreateFolder ("C:\Backups\" + userName + "\")
End If

strDocuments = ("C:\Users\" + userName +"\Documents")

strLocation = ("C:\Backups\" + userName + "\")

If objFso.FolderExists (strDocuments) Then
  objFso.CopyFolder strDocuments, strLocation, True
End If

Answer 1

我相信我的问题的答案是添加一个＆＃34; \＆＃34;在引用文件夹的末尾以及CopyFolder命令。由于我此时远离我的脚本计算机，任何人都可以确认我的发现吗？

Option Explicit

Dim objWShell, userName, objFso, Wshshell, strDocuments, strLocation

Set objFso = WScript.CreateObject("Scripting.FileSystemObject")    
Set objWShell = WScript.CreateObject("WScript.Shell")    
Set WshShell = Wscript.CreateObject("WScript.Shell")

userName = objWShell.expandEnvironmentStrings("%userName%")

If Not objFso.FolderExists("C:\" + "Backups" + "\") Then    
  objFso.CreateFolder ("C:\" + "Backups" + "\")     
End If

If Not objFso.FolderExists("C:\Backups\" + userName +"\") Then    
  objFso.CreateFolder ("C:\Backups\" + userName + "\")    
End If

strDocuments = ("C:\Users\" + userName + "\" + "Documents"+ "\")    
strLocation = ("C:\Backups\" + userName + "\")

If objFso.FolderExists (strDocuments) Then    
  objFso.CopyFolder strDocuments, strLocation, True     
End If

如何将MyDocuments文件复制到新创建的文件夹中？

1 个答案: