Jag hadde hoppats att slippa besvära er på en tid men...

Jag vill spara ner informationen ifrån en lista till en textfil. Inga problem, men i listan så finns sångtitlar lagrade, utan sökväg.
Jag har "mellanlagrat" sökvägen i en ettikett, lPath, och vill nu att nar jag spara textfilen, att pathen skall stå ihop med titlen:
Så här skrivs det nu:
The Life
Men vill ha:
G:\vbkode\Test med musik\AUD_01\Songlista\The Life

Så här är min kod nu:
<code>

With CommonDialog1
.CancelError = True
.Filter = "Text |*.txt"
.DefaultExt = ".txt"
.DialogTitle = "Spara S.A.W:s songlista som:"
.flags = &H2
.FileName = ""
.ShowSave
End With


Dim f As Integer
Dim i As Integer
FileName = CommonDialog1.FileName

f = FreeFile
i = 0

Open FileName For Output As f

For i = 0 To songlista.ListCount - 1
Print #f, songlista.List(i)
'Här har jag försökt att plocka in lPath, men den vill inte ta det.
Next i
Close f
</code>

Kan det vara som så att jag har något annat problem i koden?

Hej
Förutsätter att lPath innehåller hela sökvägen

For i = 0 To songlista.ListCount - 1
Print #f, lPath & "\" & songlista.List(i)
Next i
Close f

Ev skall du utesluta "\" om den redan finns i lPath.

mvh
Sven

Av någon anledning så fungerar det nu. Så här har jag försökt hur länge som helst...
Tack Sven.

Hej
Förmodligen har du haft lPath som en Lokal Variabel
Den bör vara Global så du kan nå den från alla Sub rutiner.

Tror och tycker
Sven