Errore all'uscita

[PEA]

Ciao ho un piccolo problema, in una parte di un mio programma devo controllare se un file esiste, in caso affermativo avviare un programma se no il programma che ha fatto il controllo si deve chiudere, ho scritto questo codice che su l'Xp mi funziona bene ma sul 98 mi da errore di lettura nel del cd ( in pratica mi serve un codice per controllare se un il cd da cui parte il programma è inserito, se è inserito continua come prima se non il programma si deve chiudere automaticamente senza mostrare errori) mi sapete dire dove sbaglio??

 On Error GoTo Gest_err
    If Dir$(App.Path & "leggimi.txt") = "" Then
        Unload Me
    End If
On Error GoTo Gest_err
    If ciao = False Then Shell App.Path & "\SysLab.exe"
    
Gest_err:
If Err.Number <> 0 Then

Unload Me
End If

grazie

[Mabi]

Che tipo o numero d'errore ti viene restituito ???
Non conoscendo il programma e quindi la sua posizione nel CD si può immaginare che ti venga dato qui:

If Dir$(App.Path & "leggimi.txt") = "" Then

Dato che App.Path, trovandosi in sottocartelle, non restituisce la barra finale.
Prova anche così:

On Error GoTo Gest_err
Const NomeFile1 = "Leggimi.txt"
Const NomeFile2 = "SysLab.exe"
Dim PercorsoFile As String

PercorsoFile = App.Path
If Right(PercorsoFile, 1) <> "\" Then
  PercorsoFile = PercorsoFile & "\"
End If

If Dir(PercorsoFile & NomeFile) = "" Then
  Unload Me
Else
  Shell PercorsoFile & NomeFile2
End If
Exit Sub
   
Gest_err:
MsgBox "Error n° " & CStr(Err.Number) & vbCrLf & Err.Description, vbCritical, "Error"
Unload Me

[PEA]

Ciao ho provato a fare come dici tu ma sul 98 continua a non funzionarmi ogni volta che estraggo il cd dal quale parte i programma mi viene fuori la schermata blu perchè manca il cD ma non mi dice il numero dell'errore.

qualcuno sa cosa fare???

Private Sub Timer3_Timer()
On Error GoTo Gest_err
Const Legge = "..\Leggimi.txt"
Const Filly = "SysLab.exe"
Dim PercorsoFile As String
        Dim hSnapShot As Long
    Dim uProcess As PROCESSENTRY32
    Dim Esegui As Long
    Dim ciao As Boolean
   Dim num As Integer
    ciao = False
 
    hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
    If hSnapShot = 0 Then Exit Sub
    uProcess.dwSize = Len(uProcess)
    Esegui = ProcessFirst(hSnapShot, uProcess)
    Do While Esegui
        Label1.Caption = uProcess.szExeFile
       num = InStr(1, Label1.Caption, Filly, vbTextCompare)
        If num <> 0 Then ciao = True
        Esegui = ProcessNext(hSnapShot, uProcess)
    Loop
     Call CloseHandle(hSnapShot)
     
     PercorsoFile = App.Path
If Right(PercorsoFile, 1) <> "\" Then
  PercorsoFile = PercorsoFile & "\"
End If
 If Dir(PercorsoFile & Legge) = "" Then
  Unload Me
Else
  If ciao = False Then Shell PercorsoFile & Filly
End If
 



Exit Sub
   
Gest_err:
MsgBox "Error n° " & CStr(Err.Number) & vbCrLf & Err.Description, vbCritical, "Error"
Unload Me
End Sub