Erhålla filnamn, sökväg och filändelse

Funktioner för filnamn, sökväg och filändelse (FSO)

Här i detta tips visas hur vi kan skapa funktioner för att extrahera filnamn, sökväg och filändelse från en textsträng såsom 'c:\XLDennis\Data.xls'.

Glöm inte av att ange referens till Microsoft Scripting Runtime - Läs mer här»

Function HamtaFilnamnFSO(Filnamn As String) As String

   '© 2002 Alla rättigheter XL-Dennis

   Dim fsoObj As Scripting.FileSystemObject

   Set fsoObj = New Scripting.FileSystemObject

   HamtaFilnamnFSO = fsoObj.GetFileName(Filnamn)

End Function

Function HamtaFilandelseFSO(Filnamn As String) As String

   '© 2002 Alla rättigheter XL-Dennis

   Dim fsoObj As Scripting.FileSystemObject

   Set fsoObj = New Scripting.FileSystemObject

   HamtaFilandelseFSO = fsoObj.GetExtensionName(Filnamn)

End Function

Function HamtaSokvagFSO(Filnamn As String) As String

   '© 2002 Alla rättigheter XL-Dennis

   Dim fsoObj As Scripting.FileSystemObject

   Set fsoObj = New Scripting.FileSystemObject

   HamtaSokvagFSO = fsoObj.GetParentFolderName(Filnamn)

End Function

I nästa tips demonstreras hur vi kan identifiera sökvägen till Temp-mappen mha FSO.

Function SokvagTemp() As String

   '© 2002 Alla rättigheter XL-Dennis

   Dim fsoObj As Scripting.FileSystemObject

   Set fsoObj = New Scripting.FileSystemObject

   SokvagTemp = fsoObj.GetSpecialFolder(TemporaryFolder)

End Function