Aprire file da FileListbox

di Anonimizzato23613 il
22 risposte

22 Risposte - Pagina 2

  • /
    Anonimizzato23613
    Utente anonimizzato
    Oregon, è questo che non riesco a capire .... se vado nella cartella e ci clicco sopra si apre immediatamente con Blocco note...
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Vuoi provare con

    lRet = ShellExecute(0, "open", App.Path & "\text.txt", "", "", 0)
  • /
    Anonimizzato23613
    Utente anonimizzato
    Ho provato in questo momento... stessa cosa....
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    A questo punto manda tutto il progetto zippato per poterlo scaricare e provare.
  • /
    Anonimizzato23613
    Utente anonimizzato
    Scusa oregon, come faccio ad allegare il progetto?
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Se hai Dropbox o posti su un sito gratuito di sharing
  • /
    Anonimizzato23613
    Utente anonimizzato
    Buongiorno oregon,
    purtroppo non ho dropbox, comunque allego l'intero codice del progetto.
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal ShowCmd As Long) As Long
    Option Explicit
    Private mstrDrive As String

    Private Sub dirSelDir_Change()
    filTextFileViewer.Path = dirSelDir.Path
    End Sub

    Private Sub dirSelDir_Click()
    With dirSelDir
    .Path = .List(.ListIndex)
    End With
    End Sub

    Private Sub filTextFileViewer_Click()
    Dim lRet As Long
    On Error GoTo msg
    lRet = ShellExecute(0, "open", App.Path & "\test.txt", "", "", 0)
    Exit Sub
    msg:
    MsgBox ("Impossibile aprire il file")
    End Sub
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Per provare togli

    On Error GoTo msg

    e vediamo il vero messaggio d'errore che ti dà
Devi accedere o registrarti per scrivere nel forum
22 risposte