VB Script - Inputbox Klasör Oluşturma ve Dosya Kopyalama

[DanteLord]

Sabit çalışma klasörünüzdeki dosyaları (yedekleme aralığı size kalmış) arşivlemenizde kullana bileceğiniz bir script.

Kod: Tümünü seç

Set objFSO = CreateObject("Scripting.FileSystemObject")

'Yedeklemenin yapılacağı hedef konum
ParentFolder = "D:\Yedek"
foldername = InputBox("Arşiv tarihini giriniz.")
If foldername = "" Then
MsgBox("Islem Iptal edildi")
WScript.Quit
End If 
destination = objFSO.BuildPath(ParentFolder, foldername)
objFSO.CreateFolder destination

'Kaynak dosyaların konumu. Aşağıdaki işlemlerden istediğinizi kullanabilirsiniz..
objFSO.CopyFile "C:\Program\Dosyalar\*.*", destination
'objFSO.MoveFolder "C:\Program\Dosyalar\*.*", destination
'objFSO.MoveFile "C:\Program\Dosyalar\*.*", destination

[velociraptor]

paylaşım için teşekkürler