---

Hej,

Mit spørgsmål går på hvordan jeg får listet filnavnene fra en mappe ind
i en array?
Der er ikke noget med undermapper... Jeg skal bare have en liste over
filerne ind i en array / listbox.
Hvordan gør jeg dette? Og helst uden brug af API, custom classes, custom
objects og lignende lort.

mvh Morten

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"

---

"Kirsbo" skrev i en meddelelse:

> Mit spørgsmål går på hvordan jeg får listet filnavnene fra en
mappe ind
> i en array?

Se, det er jo ikke svært.


Option Explicit

Private Sub Command1_Click()
Dim strPath As String
Dim strNames As String
Dim varArray As Variant

strPath = "C:\*.*"

' Skaf en liste over filnavne adskilt med ";"
strNames = strFilenames(strPath)

varArray = Split(strNames, ";")

' Vis de fundne filnavne
Dim i As Integer
For i = LBound(varArray) To UBound(varArray)
Debug.Print varArray(i)
Next

End Sub

Function strFilenames(strPath As String) As String
Dim strFile As String
strFilenames = ""
strFile = Dir(strPath, vbNormal)
Do While strFile <> ""
strFilenames = strFile & ";" & strFilenames
strFile = Dir
Loop
End Function

> Hvordan gør jeg dette? Og helst uden brug af API, custom
classes, custom
> objects og lignende lort.

Nå nå nå ....

--
/\ preben nielsen
\/\ prel@post.tele.dk

---

Det var sørme lækkert, lige hvad jeg behøvede uden brug af alt det
hi-tech api gøjl

Tusind tak!
                        

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"

---

> Dim varArray As Variant

Denne linie bør nok erstates af Dim strArray() As String

> uden brug af alt det hi-tech api gøjl

Det API gøgl, giver ofte en meget bedre løsning en dem som vb selv kan
producere. Og specielt med løkker (og dermed arrays), kan en (C++) DLL give
et meget bedre slutresultat.

Mvh. Rayman

---

"Rayman" <rayman_dk@email.com> skrev i en meddelelse
news:aP0L8.17515$N46.770418@news010.worldonline.dk...
> > Dim varArray As Variant
>
> Denne linie bør nok erstates af Dim strArray() As String

Det synes jeg du skulle prøve


--
/\ preben nielsen
\/\ prel@post.tele.dk

---

> > Denne linie bør nok erstates af Dim strArray() As String
>
> Det synes jeg du skulle prøve

Hvis du selvfølgelig erstatter henvisningerne til varArray med strArray, så
bliver det således (og det virker):

Option Explicit

Private Sub Command1_Click()
Dim strPath As String
Dim strNames As String
Dim strArray() As String

strPath = "C:\*.*"

' Skaf en liste over filnavne adskilt med ";"
strNames = strFilenames(strPath)

strArray = Split(strNames, ";")

' Vis de fundne filnavne
Dim i As Integer
For i = LBound(strArray) To UBound(strArray)
Debug.Print strArray(i)
Next

End Sub