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

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