Bestandsnaam en pad scheiden

[harolda1980]

Nadat ik via een filepicker een bestand geselecteerd heb. Heb ik de naam met de gehele pad eraan vast. Nu wil ik uiteindelijk het pad en bestandsnaam scheiden om die te gebruiken in de database.

 

[wampier]

Sub test()
Dim filename As String
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
filename = fso.GetFileName("c:\test2\test.xls")
MsgBox (filename)
End Sub

Dit object kan nog veel meer handige dingen met bestandsnamen
http://msdn.microsoft.com/en-us/library/6tkce7xa(v=vs.85).aspx

 

[OctaFish]

Gebruik het commando Split om de bestandsnaam op te splitsen op basis van een backslash.

    Dim sFilePath
    sFilePath = Split(strFileName, "\")
    sFile = sFilePath(UBound(sFilePath))

Het volledige pad kun je ofwel opbouwen uit de matrixvariabelen tot Ubound, of door met Instr() de startpositie van de bestandsnaam op te zoeken.

 

[snb]

c00=application.getopenfilename
c01=dir(c00)
c03=split(c00,c01)(0)