Bazı DOS komutlarının VBA ile kullanımı

16/04/2012, 10:36

accessman

Kod:
'DOS komutları
'Raider ®
'
Sub Kopyala()
'Disket sürücüsündeki bütün dataları C:\ sürücüsüne kopyalamak için,
Shell ("xcopy a:\*.* /s c:\")
End Sub

Sub KlasorYarat()
'Yeni bir dosya yolu ve dosya yaratmak için,
Shell "cmd /C" & "md C:\DenemeRaider"
End Sub

Sub GizliDosya()
Shell "cmd /C" & "attrib +h C:\Deneme.txt"
'Dosyanın "Gizli" özelliğini kaldırmak için -h kullanabilirsiniz.
End Sub

Sub SaltOkunurDosya()
Shell "cmd /C" & "attrib +r C:\Deneme.txt"
'Dosyanın Salt Okunur özelliğini kaldırmak için -r kullanabilirsiniz.
End Sub

Sub DosyaSil()
'C:\Deneme.txt dosyasını silmek için ( /p parametresi ile onay alınır, bu parametreyi yazmazsanız ikaz gelmeden silinir.),
Shell "cmd /C" & "Erase C:\Deneme.txt/p"
End Sub

Sub KlasorYenidenAdlandır()
'DosyaDeneme isimli bir klasörün adını DenemeDosyasi olarak değiştirmek için,
Shell "cmd /C" & "rename C:\DosyaDeneme DenemeDosyasi"
End Sub

Sub DosyaYenidenAdlandır()
'DenemeDosyasi isimli bir klasörün içindeki Deneme1.xls dosyasının adını DenemeRaider.xls olarak değiştirmek için,
Shell "cmd /C" & "rename C:\DenemeDosyasi\Deneme1.xls DenemeRaider.xls"
End Sub

Sub DosyaYerlestir()
'C:\DenemeDosyasi\Deneme1.xls isimli bir dosyanın başka bir yere, (F:\Deneme1.xls) taşınması için,
Shell "cmd /C" & "move C:\DenemeDosyasi\Deneme1.xls F:\"
End Sub

Sub DosyaYerlestir2()
'C:\DenemeDosyasi\Deneme1.xls isimli bir dosyanın başka bir yere, dosya ismi de değiştirilerek taşınması için,
Shell "cmd /C" & "move C:\DenemeDosyasi\Deneme1.xls F:\RaiderDeneme\DenemeRaider.xls"
End Sub
16/04/2012, 16:52

Yandemir

teşekkürler
prorgam içinden kopyalama yerine bunları kullanmak daha pratiktir.
16/04/2012, 19:29

benremix

Verdiğiniz bilgiler için teşekkürler.
Saygılar...