[VFP] Windows Script Host - FileSystemObject

之前利用COPY FILE 命令搬移公司派工圖檔時才發現，COPY FILE 命令複製檔案時，會把檔名全部變成小寫，為了避免這個問題，因此改用 Windows Script Host（WSH）- FileSystemObject（FSO）來複製檔案，就可以避免這個問題。

oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile((cOldFilePath),(cNewFilePath))
RELEASE oFSO

• 20151223 

執行 oFSO.CopyFile 時，一直出現下面錯誤訊息

後來才發現沒有 Server 端寫入權限，帳號明明是 administrator，Orz

而在VFP中，並沒有可以重新命名資料夾的指令，可以利用 FSO 的 MoveFolder 來達成。

oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.MoveFolder((cOldDirPath),(cNewDirPath))
RELEASE oFSO

MoveFolder可以用來搬移檔案，進階使用更改資料夾名稱，而更改檔案名稱也是一樣的用法。

oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.MoveFile((cOldFilePath),(cNewFilePath))
RELEASE oFSO

利用 RMDIR 或 RD 命令刪除資料夾時，出現 "The directory is not empty（目錄不是空的）" 錯誤，才發現資料夾內假如有隱藏的系統檔案，會無法刪除資料夾，EX：Thumbs.db，利用 FSO 即使有系統檔案也可以刪除資料夾。

oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFolder((lcDirPath))
RELEASE oFSO

備註：作業系統從 Windows 98 開始有 WSH；只有 Windows 95 和 Windows NT 4.0 沒有

參考資料
• Windows Server System 系統管理之 Windows Script Host
• Wiki - Windows Script Host -- Windows和Windows Script Host版本對應說明
• Using Microsoft Windows Script in Visual FoxPro 
• Examples of Window Scripting uses in VFP
• COPY FILE之後大寫英文都變成小寫了- API 作法