Når du klikker på din knap går jeg ud fra at du vil åbne filen.
Det klares således:
Private Sub CommandButton2_Click()
Dim Filnavn as String
If Right(File1.path,1) = "\" Then
Filnavn = File1.path & File1.Filename
Else
Filnavn = File1.path & "\" & File1.Filename
End If
'Herefter er f.eks. "C:\temp\fil.txt" gemt i variablen "filnavn", hvis det
'ellers var den fil der blev valgt.
'Nu kan du så åbne filen - til det er der 1000000 besvarede spørgsmål på
'eksperten, fx.
www.eksperten.dk/spm/252223End Sub
Der er plads til masser af forbedringsmuligheder, du kan angive at du kun vil se *.txt-filer ved at sætte propertien "Pattern" for din filelistbox (se i property-vinduet når din filelist er markeret
Derudover kan du sikre dit, at man ikke kan trykke på "Åben-kanppen" hvis der ikke er valgt nogen fil, og det kan føres på mange måder, mest simpelt ved at lave en
If file1.filename = "" then Exit sub
som den første linie i din command2_click()
Men du gør altså dig selv en kæmpe tjeneste ved at købe og læse en bog - du sparer MEGET tid ved først at læse om VB i stedet for bare at prøve dig frem!!!
(
http://www.eksperten.dk/kat/5?searchtype=txt&words=bog&method=and&sort=score&catid=5 )