Hejsan!
Hur gör jag så att om jag har dessa filer i en mapp:
s_ett.txt
s_tva.txt
s_tre.txt

Hur gör jag då så att den går igenom alla filer som börjar på "s_" ?

Typ såhär (fast jag har ingen aning men för att ni ska fatta):
while left(i mapp "\", "_s")
'öppna fil
end while

eller nått, har ingen aning!

Kan detta vara nåt?


'Ta fram första filen
strFilNamn=dir("s*.txt")
while strFilNamn<>""
'Gör vad du vill här!

'Ta fram nästa fil
strFilNamn=dir
wend

Nu har jag såhär:
Dim Hostname, Password, MaxPlayers, Map, LevelRotation, WinLimit, RoundLimit, RoundTime, FreezeTime, BuyTime, StartMoney As String
Dim f As Integer
Dim strFilNamn

f = FreeFile

strFilNamn = Dir("s*.txt")

Open App.Path & strFilNamn For Input As f
Do While Not EOF(f)
Input #f, Hostname, Password, MaxPlayers, Map, LevelRotation, WinLimit, RoundLimit, RoundTime, FreezeTime, BuyTime, StartMoney

While strFilNamn <> ""

'Lägg till samma text i Listviewkontrollen
Set itmX = ListView1.ListItems.Add()
itmX.Text = Hostname
itmX.SubItems(1) = Password
itmX.SubItems(2) = MaxPlayers
itmX.SubItems(3) = Map

strFilNamn = Dir

Wend
Loop

Close f

Men jag får path/file access error, why?

Looparna är i felplacerade. Skall vat tvärrt om.
<code>
Dim Hostname As String
Dim Password As String
Dim MaxPlayers As String
Dim Map As String
Dim LevelRotation As String
Dim WinLimit As String
Dim RoundLimit As String
Dim RoundTime As String
Dim FreezeTime As String
Dim BuyTime As String
Dim StartMoney As String
Dim f As Integer
Dim strFilNamn As String

f = FreeFile

strFilNamn = Dir("s_*.txt")
Do While Len(strFilNamn)

Open App.Path & strFilNamn For Input As f
Do Until EOF(f)
Input #f, Hostname, Password, MaxPlayers, Map, LevelRotation, WinLimit, RoundLimit, RoundTime, FreezeTime, BuyTime, StartMoney

'Lägg till samma text i Listviewkontrollen
Set itmX = ListView1.ListItems.Add()
itmX.Text = Hostname
itmX.SubItems(1) = Password
itmX.SubItems(2) = MaxPlayers
itmX.SubItems(3) = Map
Loop
Close f

strFilNamn = Dir
Loop

</code>

Var uppmärksam på att
<code>
Dir("s*.txt")
</code>
returnerar alla txt.filer som börjar på "s"
vad du ville ha var väl filer som började "s_"
<code>
Dir("s_*.txt")
</code>

//
Janne