Bunu Naıl yapcam BECEREMEDİM

işlevi şu belirtilen sürücüdeki(onu sen belirlicen) dosya.txt varmı bak yoksa o sürücüyü gizle

not:"o srücüye karşılık gelen sayı" yazan yere hangi usb sürücüsüyse onun rakamını yaz

E: 16
F: 32
G: 64
H: 128
I: 256
J: 512

Set yaz = CreateObject("wscript.shell")
If Dir("sürücü harfi:\dosya.txt") = "" Then
Else
yaz.regwrite_ "HKEY_CURRENT_USER\Software\Microsoft\Windows\ Curr entVersion\Policies\Explorer\NoDrives", "o_ srücüye karşılık gelen sayı", "REG_DWORD"
End If




BUNU YAPMAM LAZIM ÖDEVV AMA NASIL YAPCAMMM detaylı anlatacak olan.

kodu veren kişiye sorarsan daha çabuk sonuca ulaşabilirsin

Dostum Bence On Error REsume Next Komutunu Kullan Ve Adan Z ye Tarattır Hangisi Acıksa Onu Kontrol Etsin Yada Mevcut Baglantıları Hafızaya Aldır Timerle 1 saniye Aralıkla Denettir Yeni Giriş Bulundugu Anda Diger Tabloyla Karsılastırt Fazla Olan Uzerınde Komutunu Uygula Birden Fazla Yolu var Yani

Hayır Usb İçin Az Önce Konu Açmışta
Çok Kolay Bak Usb'in J'mi Neyse Sadece Onu Yaz Kodlarıda Yaz Sonrada Kayıt Defterine Kaydet Bu Kadar

yardımcı oll ne olur

Dostum Mesela Bir Flash Tak Bilgisayarına Adı Ne Olarak Gozukuyor Onu Once Bul Mesela E
mesela Set yaz = CreateObject("wscript.shell")
If Dir("sürücü harfi:\dosya.txt") = "" Then
Else
yaz.regwrite_ "HKEY_CURRENT_USER\Software\Microsoft\Windows\ Curr entVersion\Policies\Explorer\NoDrives", "Buraya 16 Yazıcaksın Sürücü Adı E Oldugu İcin", "REG_DWORD"
End If