Salve
Problema:
Ho una filelistbox con una serie di nomi . Questi nomi sono i file che stanno dentro una cartella. sono tutti file di testo con estensione crd tab txt e pro. Si usano per scrivere testi da suonare.Adesso io quando clicco su uno dei nomi della flistbox mi si apre notepad invece io vorrei che il file mi si aprisse all'interno della RichTextBox.
Queto è il codice che c'è adesso.
Dim lRet As Long
If Right(File1.FileName, 4) = ".txt" Or Right(File1.FileName, 4) = ".pro" Or Right(File1.FileName, 4) = ".crd" Or Right(File1.FileName, 4) = ".tab" Then
Text1 = "File valido"
Shell ("notepad.exe " & File1.FileName), vbNormalFocus 'secondo me bisogna
'cambiare questo questa riga
'della shell.
Else
Text1 = "File non valido"
End If
End Sub
Ho allegato anche un'immagine così si capisce meglio.
Spero di essermi spiegato ciao e grazie.
