[vba] file met variabele extensie verplaatsen.

[Verwijderd]

ik ben in vba een soort filemover aan het schrijven die een aantal bestanden moet verplaatsen.
de bestandsnaam is bekend, maar de extensie niet (Die wordt gegenereerd a.h.v. usercode)
voorbeeld filename: 00123456.K22 of 00654321.K19

de functie FileCopy kan niet met een wildcards werken, dus ik zoek een functie om van een opgegeven bestandsnaam de extensie te achterhalen. Wie geeft mij een duwtje in de goede richting?

[mulder]

Dat kan niet, aan de hand van de bestandnaam de extensie achterhalen.

Moet dus kijken of je een functie kan schrijven die wel kan zoeken naar bestanden met een wildcard, en dan pas gaan kopieeren

[Verwijderd]

dat heb ik dus gedaan, een functie geschreven om te controleren of de file bestaat:

Visual Basic:

Public Function bFileExists(sBestandsnaam As String) As Boolean

If Dir$(sBestandsnaam) <> "" Then
   bFileExists = True
Else
   bFileExists = False
End If

End Function

Dat lukt dus met een wildcard, maar dan heb ik geen idee hoe ik de variabele met wildcard om kan bouwen tot een variabele met extensie.

[ Voor 5% gewijzigd door Verwijderd op 21-04-2005 15:53 ]

[mulder]

die functie zou je zo moeten maken dat deze het gevonden resultaat(en!) terug geeft