สคริป- สร้างโฟลเดอร์ตามวันที่และย้ายไฟล์

      สิ่งที่ผมต้องการคือ ให้สคริปสร้างโฟลเดอร์ขึ้นมาใหม่(ตามวันที่) แล้วทำการย้ายไฟล์ที่อยู่ในโฟลเดอร์เดิมไปที่โฟลเดอร์ใหม่

'// START
'// CreateDailyFolder-MoveFiles.vbs

Dim objFSO, yesterday, yy, mon, dd, NewFolder
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const foldera = "c:\scan\"      ***** แก้ไขโฟลเดอร์  *****

'Set New Folder name for date
yy = DatePart("yyyy",DateAdd("d",-1,Date))
mon = DatePart("m",DateAdd("d",-1,Date))
If len(mon) = 1 Then
mon = "0" & mon
End If
dd = DatePart("d",DateAdd("d",0,Date))
If len(dd) = 1 Then
dd = "0" & dd
End If

'Set New Folder, Create new folder
NewFolder = "c:\scan\" & yy & mon & dd    ***** แก้ไขโฟลเดอร์  *****
objFSO.CreateFolder (NewFolder)
'wScript.Echo "Folder Created: " & newfolder

'Creates Folder Obj
Set objFolder = objFSO.GetFolder("c:\scan\")     ***** แก้ไขโฟลเดอร์  *****
Set colFiles = objFolder.Files

'Start Files Move
For Each objFile In colFiles
'WScript.Echo "Moving " & objFile.Path & " to " & newfolder & "..." &
objFSO.GetFileName(objFile.Path)
objFSO.MoveFile objFile.Path, NewFolder & "\"
Next

'WScript.Echo "Done."
'//END

http://www.mediafire.com/?baksgy242rvlb8b   <<<< Download

ขอบคุณ Nico VanHaaster
จาก http://www.webmasterkb.com/Uwe/Forum.aspx/vbscript/14395/Create-a-new-folder-and-then-copy-files-into-that-same-folder

Share on Google Plus

About Volk-69

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.