Dim FSO, delFolder
Dim lastFile
' 欲刪除檔案所在之目錄
delFolder = "r:\T"
' == 結束 ==

' 建立檔案系統物件（File System Object）
Set FSO = CreateObject("Scripting.FileSystemObject")


' 呼叫刪除檔案的sub
DelFilesInFolder FSO.GetFolder(delFolder)

' 刪除檔案的sub
Sub DelFilesInFolder(objFolder)
	' 宣告變數
	Dim file, subFolder

	' 找出目前所在目錄內所有的檔案
	For Each file In objFolder.Files
            lastFile = file.Name
	Next
    If (lastFile<>"") Then
'WScript.Echo (objFolder.Path & "\" & lastFile)
FSO.DeleteFile(objFolder.Path & "\" & lastFile)
End If
	' 如果遇到子目錄，也要進去檢查並刪除
	For Each subFolder in objFolder.SubFolders
		DelFilesInFolder subFolder
	Next
End Sub

'WScript.Echo("作業執行完畢：" & Date & " " & Time)