string aanpassen

[Flormot]

Ik ben bezig een programma te schrijven en stuit op het volgende probleem.
De gebruiker moet een map op zijn harde schijf selecteren. Ik zou moeten te weten komen welke bestanden daar allemaal inzitten.
dus gebruik ik volgende code

dim files()
files = directory.getfiles(folderbrowsedialog1.selected)

Nu zitten dus al de bestanden in de array 'files'
Maar, i.p.v. enkel de bestandsnaam en de extentie van het bestand, staat het volledige pad van de bestanden in de array.
Is het nu mogelijk om de inhoud van de array zodanig te veranderen dat ik enkel de bestandsnaam en de extentie overhou?

voorbeeld: files(0) = "c:\program files\bestand.txt"
ik wil dus enkel "bestand.txt" overhouden.

 

[beheer25]

De precieze syntax is even puzzelen, maar met de volgende functies moet je er kunnen komen:

M.b.v. een loop en de functie "instr" moet je het meest rechtse "/" teken opzoeken, daarna kun je vanaf daar met de "mid" functie het gedeelte rechts van het laatste "/" teken ophalen.


Grtz,

 

[arre]

' Files array
dim gotit as boolean
dim Files2(hoeveelarraydinges)
for i = 1 to hoeveelarraydinges
for f = 1 to len(files(i))
if mid$(files(i),len(files(i)) - f,1)="\" then
if gotit = false then
gotit = true
files2(i) = mid$(files(i),len(files(i)) - f)
end if
end if
next f
gotit = false
next i

'Nu zit alles mooi opgeslagen in files2()