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