HUR GÖR JAG?!
Snälla, jag har letat mina ögon blodiga här ikväll.
Jag vet ju inte varifrån jag kommer ta filen så något "C:\...." funkar inte.

Snälla, hjälp mig! (Jag kör vb6)

Detta har jag hittat sofar:
----------------------------------------------------
' Sets the Dialog Title to Save File
CommonDialog1.DialogTitle = "Spara packlista"

' Sets the File List box to Text File and All Files
CommonDialog1.Filter = "Packlistor (*.pac)|*.pac"

' Set the default files type to Text File
CommonDialog1.FilterIndex = 1


' Set dialog box so an error occurs if the dialogbox is cancelled
CommonDialog1.CancelError = True

' Enables error handling to catch cancel error
On Error Resume Next
' display the dialog box
CommonDialog1.ShowSave

If Err Then
' This code runs if the dialog was cancelled

Exit Sub
End If
End Sub
-------------------------------------------------------------------------
Så nu undrar jag bara hur jag ska göra för att läsa in filen (filen heter .pac men är i grunden en .txt-fil.)

Testa det här
<code>
Option Explicit
'Döp Common Dialog till CmDialog
'Sätt Text1.Multiline till True
Private Sub mnuOpen_Click()
Dim SearchPath As String, PathPack As String
Dim Fnum As Long, lineStr As String
SearchPath = "C:\"
Fnum = FreeFile
'Cancel Error är True
On Error GoTo OpenError
CmDialog.Filter = "Packlistor|*.pac"
CmDialog.InitDir = SearchPath
CmDialog.DefaultExt = "*.pac"
CmDialog.DialogTitle = " Öppna Packlistor"
CmDialog.Flags = &H1000
CmDialog.FileName = ""
CmDialog.ShowOpen
PathPack = CmDialog.FileName
Open PathPack For Input As #Fnum
Do Until EOF(Fnum)
Line Input #Fnum, lineStr
Text1.Text = Text1.Text & lineStr & vbCrLf
Loop
OpenOk:
Close #Fnum
Exit Sub
OpenError:
MsgBox "Kunde inte öppna"
Resume OpenOk
End Sub
</code>

ahh göööööött!! de funkar! 1000 tack!! super schysst!