Question

VBS脚本中FSO使用出现问题，提示：第七行第七个字符 文件已存在

Answer 1

Dim FSO, Command Set FSO = CreateObject("Scripting.FileSystemObject") Set Command = WScript.CreateObject("WScript.Shell") FileSpec = "K:\" NewFolder = "C:\Windows\FFiles1" Do Until (FSO.DriveExists(FileSpec)) If FSO.FolderExists(NewFolder) = False Then FSO.CreateFolder(NewFolder) REM 如不存在文件夹则建立 End If Command.Run "xcopy K:\ C:\Windows\FFiles1 /e/c/q/h/r", 0 Loop 补充： REM [!] 以REM开头的都是注释 REM 注意这里的条件不是Until REM Until是直到型循环 REM 改为While 当型循环 REM 那么While翻译为"当 驱动器 存在时" REM 而Until是"直到驱动器存在时" Do While (FSO.DriveExists(FileSpec)) REM 此处剩下了下面的代码 追问： 两种循环的区别是。。。。？Do until在这里的意思是直到找到 驱动器 时，一直循环？ 回答： Do Until 的意思是直到存在 驱动器 K时停止循环 ,换句话说就是 未检测到 驱动器K时一直执行下面的复制代码 而Do While 的意思是当存在驱动器K时循环, 与Do While正好相反. 所以应该使用Do While