jag ska spara innehållet från tex listbox1 till en txt fil och det ska sparas i den mapp som dirlistboxen är.
och sedan öppna filen genom att dubbelklicka på den i en filelistbox och då öppnas den i tex listbox2

alla förklaringar blir så snurriga för mej då man hittar bit för bit av kodningen bara.

Så hur skulle man kunna tänkas gå till väga med det där??

Många funderingar //Fredrik

Hej
Du får även lägga upp en DriveListBox då blir första delen så här.
Option Explicit
Private Sub Form_Load()
'Fyller ListBoxen med något
Dim i As Long
Command1.Caption = "Spara Till Fil"
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Command1_Click()
Dim i As Long, FileNum As Long
FileNum = FreeFile
Open Dir1.Path & "\MinTest.txt" For Output As #FileNum
For i = 0 To List1.ListCount - 1
Print #FileNum, List1.List(i)
Next 'i
Close #FileNum
End Sub
'Sven

Hej
Här är fortsättningen som löser båda problemmen,
lägg in : Drive1 Dir1 File1 Command1 ListBox1 o ListBox2
klistra in och kolla

Option Explicit
Private Sub Form_Load()
'Fyller ListBoxen med något
Dim i As Long
Drive1.Drive = "C:"
Command1.Caption = "Spara Till Fil"
File1.Pattern = "*.txt"
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_DblClick()
Dim i As Long, FileNum As Long, tmpStr As String
FileNum = FreeFile
Open Dir1.Path & "\" & File1.FileName For Input As #FileNum
Do Until EOF(FileNum)
Line Input #FileNum, tmpStr
List2.AddItem tmpStr
Loop
Close #FileNum
End Sub

Private Sub Command1_Click()
Dim i As Long, FileNum As Long
FileNum = FreeFile
Open Dir1.Path & "\MinTest.txt" For Output As #FileNum
For i = 0 To List1.ListCount - 1
Print #FileNum, List1.List(i)
Next 'i
Close #FileNum
End Sub
'Sven