Messaggio di avviso con metodo FollowHyperlink

2 Risposte

• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi

  8951

  13 apr 2020, 19:48

  Non puoi devi usare altri metodi come SHELLEXECUTE passando OPEN oppure, più semplice questo:

  
  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
  

• E

  eddy1973

  Utente Attivo

  Iscritto da

  ago, 2019

  Messaggi

  282

  13 apr 2020, 20:05

  Perfetto. Grazie.