iT邦幫忙

DAY 10
6

WSH研習記錄系列 第 12

WSH研習記錄--檔案操作篇(續)

上一篇講到複製檔案,但是一次只有複製一個檔案
那若是有多個檔案要一次複製呢??
當然是不會使用迴圈來跑囉..
將多個檔案一次複製
在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資料夾。

提供給有需要的人..


上一篇
WSH研習記錄--檔案操作篇
下一篇
WSH研習記錄--檔案操作應用篇
系列文
WSH研習記錄42

尚未有邦友留言

立即登入留言