Fw: [VBS-] 檔案移到資料夾

[unfinish (笑吟吟的淫淫笑)]

※ [本文轉錄自 EzHotKey 看板 #1JgIrAM2 ]

作者: unfinish (笑吟吟的淫淫笑) 看板: EzHotKey
標題: [VBS-] 檔案移到資料夾
時間: Tue Jun 24 15:48:23 2014

下面這段程式在VBA底下可以正常執行
存成.vbs之後 執行時沒有異常訊息
但是也沒有任何執行效果
沒有移動任何檔案甚至連建立新的資料夾都沒有
有人可以告訴我是出了什麼問題嗎
謝謝大家

Sub FileSeparator()
  Dim FSO, MyFiles
  Dim DateLastModified, FileName, FolderPath
  Dim FileInfo
   FolderPath = "D:\TEST"
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set MyFiles = FSO.getfolder(FolderPath)

   For Each FileInfo In MyFiles.Files
     FileName = FileInfo.Name
     DateLastModified = Format(FileInfo.DateLastModified, "YYMMDD")

     If Not FSO.FolderExists(FolderPath & "\" & DateLastModified) Then
       FSO.CreateFolder (FolderPath & "\" & DateLastModified)
     End If

     FSO.MoveFile FolderPath & "\" & FileName, FolderPath & "\
" & DateLastModified & "\"
   Next

End Sub

--
Sent from my Android

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.75.28.29
※ 文章網址: http://www.ptt.cc/bbs/EzHotKey/M.1403596106.A.582.html

※ 發信站: 批踢踢實業坊(ptt.cc)
※ 轉錄者: unfinish (111.249.62.209), 06/24/2014 23:50:30
推 Peruheru: 姑且一問，你有任何主程式去呼叫這個函式嗎?