[code]
'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 Sa
|