dos komutu

[mnz]

makro ile dos komutu verilebilir mi?
örn: REN DİR gibi

 

[Haluk]

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

'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

 

[mnz]

peki ping komutu verebilirmiyiz?

 

[Haluk]

Asagidaki gibi olabilir ...

Sub Test()
    Shell "cmd /C" & "ping www.msdn.com"
End Sub

Veya, web adresi yerine IP adresini kullanabilirsiniz.

Sub Test2()
    Shell "cmd /C" & "ping 207.46.130.108"
End Sub

Başka bir kullanım şekli de şöyle olabilir;

Sub Test3()
    Shell "command.com /c ping www.msdn.com", 1
End Sub

Sub Test4()
    Shell "command.com /c ping 207.46.130.108", 1
End Sub

 

[mnz]

Mükemmel !!
biraz abartırsak, :fircala:
textbox a girilmiş olan ip veya site ismi için??

 

[Haluk]

CommandButton1' e tıklayınca, TextBox1' e girilmiş olan IP veya Web adresini ping' lemek için;

Private Sub CommandButton1_Click()
    Shell "command.com /c ping " & TextBox1.Text, 1
End Sub

 

[mnz]

Private Sub CommandButton1_Click()
Shell "command.com /c ping " & TextBox1.Text, " & TextBox2.Text, 1
End Sub

iki textbox ile çalışmıyor nedendir?
Ping komutuna aykırı olabilir. Başka komut deniyorum.

 

[mnz]

netsend ile kullanıcam olmazmı?

 

[mfn562]

excelden netsend atabilirmiyiz