
Public Sub ExecuteFile(FilePath As String)
'Esegue file
On Error GoTo error
Dim ret As Integer
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath))
Exit Sub
error:
MsgBox Err.Description, vbExclamation, "Error"
End Sub |
sub utilizza filename = "C:userspippodesktopfile.pdf" call ExecuteFile(filename) end sub |
sub utilizza Dim filename as String filename = "C:userspippodesktopfile.pdf" call ExecuteFile(filename) end sub |
