[VBA] filteren achter de \

[Verwijderd]

ik heb een aantal foto's
deze foto's staan in verschillende mappen

C:\Documents and Settings\creon\My Documents\My Pictures
C:\Documents and Settings\creon\My Documents\Mijn ontvangen bestanden
D:\Data\Foto's\2004_08_17
E:\Diverse\Foto's\Foto's Amerika

nu ben ik van plan deze foto's via VBA te laten zien
met meteen de naam van de map onder de foto

dus
My Pictures
Mijn ontvangen bestanden
2004_08_17
Foto's Amerika

nu lukt het mij nog wel om de eerste ... tekens weg te filtere
maar aangezien de hoeveelheid tekens elke keer anders is wordt dit voor mij een heel stuk moeilijker

is er een filter die alles voor de \ weg filterd
of een filter die alles achter de laatste \ laat staan

[Haan]

Ik zou zeggen reguliere expressies, maar geen idee of dat in VBA ook werkt.

[RobIII]

Kwestie van splitten met Split(jestringhier,"\") en dan de UBound van die result-Array uitlezen; iets like:

Visual Basic:

Dim MyString

MyString = "C:\Documents and Settings\creon\My Documents\My Pictures"

Dim MyArray

MyArray = Split(MyString,"\")

Dim MyFolder

MyFolder = MyArray(UBound(MyArray))
MsgBox(MyFolder)

Giet dat in een functie et voila.

Visual Basic:

Private Function GetFolderName(Path)
  Dim Parts
  Parts = Split(Path, "\")
  GetFolderName = Parts(UBound(Parts))
End Function

MsgBox GetFolderName("D:\Data\Foto's\2004_08_17")

[ Voor 26% gewijzigd door RobIII op 02-07-2007 20:41 ]