---

Hallo an Alle,

mit der folgenden Prozedur(aus der VB2008 Hilfe), komme ich recht schnell an Alle Dateinamen eines Verzeichnisses.

Public Sub Dateinameneinlesen()
        Dim i As Integer
        ReDim Namen(My.Computer.FileSystem.GetFiles(ThisDrawing.Path).Count)
        i = 0
        For Each foundFile As String In My.Computer.FileSystem.GetFiles(ThisDrawing.Path)
            Namen(i) = foundFile
            i = i + 1
        Next

    End Sub

Damit bekomme ich den vollständigen Pfad der Dateien.
Hat jemand ne Idee, wie ich nur die Dateinamen selbst, also ohne Pfad davor bekommen?

Danke, Theo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

entweder Du teilst den retournierten String an den Backslashes

Code:

---

Dim tArr() as string = Split(Filename, "\"c)
Dim tName as string = tArr(tArr.GetUpperbound(0))

---

Oder Du verwendest

Code:

---

Dim tName as string = My.Computer.Filesystem.GetInfo(Filename).Name

---

HTH, - alfred -

------------------
www.hollaus.at

---

Danke Alfred,

ich hab mich für die zweite Version entschieden und habe diese noch ein bisschen abgewandelt.:
            Namen(i) = My.Computer.FileSystem.GetName(foundFile)

Funktioniert bestens.

Gruß, Theo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP