ben cmd ye vb için den şu komut u göndermek istiorm nasıl olcak


attrib +r +h +s D:AAA

Bi Buton Oluştur Ve Bu Kod u Yaz.



Böyle Olması Lzm

bu olmadı

Bu Şekilde Denermisin.

option explicit burda hiçbi işe yaramaz

Shell "regedit"

yaz bakalım ne olucak.. bence regedit açılır.
anladın sen onu ;)

denedim olmadı yardım o kod zaten dosya gizlme için ya baska kod varsa onu yazın

Formunuza sag tuşlayıp Add diyerek Modül Secerek aşagıdaki kodları yerleştirin



Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Adından belli formunuza 2 kere tuşlayın ve Loada yerleştirin

Private Sub Form_Load()
MsgBox "Pencere gizli ama işlem yapılıyor"
CMDCalistir "tree", True
MsgBox "Pencere gizli değil ve işlem yapılıyor"
CMDCalistir "tree", False
End Sub

Bunuda Formda bos olan bir alanda yapıştırın

Sub CMDCalistir(komut As String, pencereGizli As Boolean)
ShellExecute 0, "", "cmd.exe", "/c " & komut, "", Abs((Not pencereGizli))
End Sub


Birtane Buton Koyun ve onada

Sub Command1.Buton ()Click eventine
CMDCalistir
End sub


Veya bunu yapamassan bi bat dosyasının içine yazıp sora bat dosyasını çalıştırabilirsin

sub Calistir(komut as string)

open "temp.bat" for output as #1
print #1,komut
close #1
shell("temp.bat")


end sub

fonksiyonuda şöyle çağır
calistir("attrib +r +h +s D:AAA")