13/03/2012, 11:17
ozanakkaya
yedekle_sabit formunun yüklendiğinde olayına aşağıdaki kodu ekle.
G sürücüsü yok ise msg box çıkar ve bilgi verir. msg box 3 sn sonra kapanıp form işleme devam eder.
G sürücüsü yok ise msg box çıkar ve bilgi verir. msg box 3 sn sonra kapanıp form işleme devam eder.
If FileExists("G:\") = True Then
Else
Dim mesaj As Object
On Error Resume Next
Err.Clear
Set mesaj = CreateObject("WScript.Shell")
If Err <> 0 Then
MsgBox "Error:" & Err
Else
mesaj.PopUp " G sürücüsü bulunamadı.", 3, "Sürücü bulunamadı ...", vbOKOnly + vbExclamation
End If
End If