mslv
01-02-2005, 18:30
Be', credo sia una cosa abbastanza stupida...
ma non riesco a trovare l'errore di questa sub....
la list1 contiene l'elenco di tutti i file e le cartelle del disco:
Private Sub List1_DblClick()
Dim lpatch As String
lpatch = (List1.List(List1.ListIndex))
Open (App.Path & "\temp\temp.txt") For Output As #1
If Mid$(Right(lpatch, 3), 1, 1) = "." Then
Print #1, lpatch
Else
Print #1, "explorer.exe " & lpatch
End If
Close #1
Shell (App.Path & "\temp\temp.bat")
End Sub
errore: chiamata di routine o argomento non valido.
l'errore è nella funzione shell, no?
grazie, e scusate se vi ho fatto perdere tempo...
ma non riesco a trovare l'errore di questa sub....
la list1 contiene l'elenco di tutti i file e le cartelle del disco:
Private Sub List1_DblClick()
Dim lpatch As String
lpatch = (List1.List(List1.ListIndex))
Open (App.Path & "\temp\temp.txt") For Output As #1
If Mid$(Right(lpatch, 3), 1, 1) = "." Then
Print #1, lpatch
Else
Print #1, "explorer.exe " & lpatch
End If
Close #1
Shell (App.Path & "\temp\temp.bat")
End Sub
errore: chiamata di routine o argomento non valido.
l'errore è nella funzione shell, no?
grazie, e scusate se vi ho fatto perdere tempo...