Agan saya mau tanya, ada yg bisa tambahin ga script ane ini nih, ane mau pindahin file ke folder lain tapi yang ane ingin ambil cuma txt aja. gimana yah?
Dim oFS
Dim file.txt
Dim iOldFileDays
Dim sInputFolder1
Dim sInputFolder1to


Dim iDays

'Period to Delete & Move
iDays=-30

'Folder Name
sInputFolder1="D:\SHARP Application\Copy of SMSBlast"
sInputFolder1to="E:\\backup\\test\\"

Set oFS = CreateObject("Scripting.FileSystemObject")

iOldFileDays = DateAdd("d", iDays, Date)

If (trim(sInputFolder1)<>"") Then
RemoveOld sInputFolder1, iOldFileDays, sInputFolder1to
End If

Set oFS=Nothing

Function RemoveOld(sFolder,dDate,dFolder)

Dim oFolder,oFile,oFiles

Set oFolder = oFS.GetFolder(sFolder)
Set oFiles = oFolder.Files

For Each oFile In oFiles
If oFile.DateLastModified < dDate Then
oFS.MoveFile oFile.Path, dFolder
'oFS.DeleteFile oFile.Path,True
End If
Next

Set oFolders = oFolder.SubFolders
For Each oSfolder In oFolders
RemoveOld oSfolder.Path, dDate

If (oSfolder.DateCreated<dDate) Then
oSfolder.Delete
End If
Next

Set oFolder = Nothing
Set oFiles = Nothing
End Function

please gan bantuanya?