2. sayfa (Toplam 2 sayfa)
Re: Vbs kodu hata veriyor
Gönderilme zamanı: 03 Ağu 2012, 12:50
gönderen velociraptor
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
Kaynak klasör , test , Hedef klasör yerine istediğini yazabilirsin , kod bu fakat bende erişim engellendi hatası veriyor birde sen dene
Re: Vbs kodu hata veriyor
Gönderilme zamanı: 03 Ağu 2012, 12:58
gönderen Bien
bende bir hata vermedi ama gene geçen seferki gibi oldu hiç bir tepki vermiyor :)
Bir yerde yanlışlık mı var gene
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
Re: Vbs kodu hata veriyor
Gönderilme zamanı: 03 Ağu 2012, 14:36
gönderen velociraptor
sanıyorum Move fonksiyonu sadece Xp de düzgün çalışıyormuş yabancı bir kaynakta o şekilde bir yazı okudum bendeki ve sendeki sistem Windows 7 , bunu .vbs ile yapmanın kolay yolu klasörü biryerden diğer yere kopyalayıp sonrada kaynaktan sildirmek olabilir , elbetteki sen şimdi bunun nasıl olacağını soracaksın , aşağıda kopyala ve sil kodlarından harmanladığım bir küçük .vbs var
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
C:\deneme klasörünü D:\ dizinine kopyalıyor ve sonrada C den siliyor
Re: Vbs kodu hata veriyor
Gönderilme zamanı: 03 Ağu 2012, 22:54
gönderen Bien
İlginiz için teşekkürler :)