Kod: Tümünü seç
dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists("c:\Kaynak klasör\test\") Then
filesys.MoveFolder "c:\Kaynak klasör\test\", "c:\Hedef klasör\"
End If
Kod: Tümünü seç
dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists("c:\Kaynak klasör\test\") Then
filesys.MoveFolder "c:\Kaynak klasör\test\", "c:\Hedef klasör\"
End If
Kod: Tümünü seç
dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists("c:\deneme\test\") Then
filesys.MoveFolder "c:\deneme\test\", "D:\deneme2\"
End If
Kod: Tümünü seç
dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists("c:\deneme") Then
filesys.CopyFolder "c:\deneme", "D:\"
filesys.DeleteFolder "c:\deneme"
End If