作者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://webptt.com/cn.aspx?n=bbs/EzHotKey/M.1403596106.A.582.html
※ unfinish:转录至看板 Visual_Basic 06/24 23:50