上一篇講到複製檔案,但是一次只有複製一個檔案
那若是有多個檔案要一次複製呢??
當然是不會使用迴圈來跑囉..
將多個檔案一次複製
在DOS的時代使用COPY這個指令時
我們常會使用「萬用字元」,這樣就可以一次將多個檔案一次就複製過去
在WSH裡也是一樣可以使用萬用字元
使用萬用字元的種類:
「*」-> 表示0字以上的任意字串
「?」-> 表示任意1字
看我們來看個範例:
Option Explicit
Private FSO
Private ThisDir
Private DesktopPath
Private CopyFromPath
Private CopyToFolder
Set FSO = CreateObject("Scripting.FileSystemObject")
ThisDir = FSO.GetFolder(".").Path
DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
CopyFromPath = FSO.BuildPath(ThisDir, "*.vbs")
CopyToFolder = DesktopPath & "\Samples"
If Not FSO.FolderExists(CopyToFolder) Then
FSO.CreateFolder CopyToFolder
End If
FSO.CopyFile CopyFromPath, CopyToFolder & "\", True
Set FSO = Nothing
程式內容大致上是這樣的
將目前資料夾內所有的VBScript檔案(副檔名為「.vbs」的檔案)
複製到桌面上的Samples資料夾內。
如果桌面上沒有Samples這個資料夾,那就新增Samples資料夾。
提供給有需要的人..