- Beranda
- Programmer Forum
(ask) vbscript untuk pindah file txt saja.
...
![yud14n4](https://s.kaskus.id/user/avatar/2013/09/30/default.png)
![Avatar border](https://s.kaskus.id/images/avatarborder/1.gif)
TS
yud14n4
(ask) vbscript untuk pindah file txt saja.
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?![Matabelo emoticon-Matabelo](https://s.kaskus.id/images/smilies/smilies_fb5ohtvdpjkq.gif)
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?
![Matabelo emoticon-Matabelo](https://s.kaskus.id/images/smilies/smilies_fb5ohtvdpjkq.gif)
0
765
2
![Guest](https://s.kaskus.id/user/avatar/default.png)
![Avatar border](https://s.kaskus.id/images/avatarborder/1.gif)
Komentar yang asik ya
Mari bergabung, dapatkan informasi dan teman baru!
![Programmer Forum](https://s.kaskus.id/r200x200/ficon/image-176.png)
Programmer Forum![KASKUS Official KASKUS Official](https://s.kaskus.id/kaskus-next/next-assets/images/icon-official-badge.svg)
20.2KThread•4.4KAnggota
Urutkan
Terlama
![Guest](https://s.kaskus.id/user/avatar/default.png)
![Avatar border](https://s.kaskus.id/images/avatarborder/1.gif)
Komentar yang asik ya