Skip to main content

AccessTr.neT


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

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

#1
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

@benbendedeilem
Cevapla
#2
teşekkürler
prorgam içinden kopyalama yerine bunları kullanmak daha pratiktir.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
#3
Verdiğiniz bilgiler için teşekkürler.
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task