Dateinamen extrahieren

Geschrieben von admin am 7. Januar 2010 | Abgelegt unter Veröffentlichungen

Tipp vom 25.11.2005

Um den Dateinamen einer Datei zu ermitteln, kann man das FileSystemObject benutzen. Hierzu braucht man lediglich einen Verweis auf die Microsoft Scripting Runtime-Bibliothek (Scrrun.dll) festlegen.

Nachfolgend der Code, mit der sich der Dateiname ermitteln lässt.
Code:

‘ Dateinamen ermitteln
Public Function GetFileName(ByVal sPathFile As String) As String
  ‘ bei sPathFile handelt es sich um den Dateinamen,
  ‘ inkl. Pfadnamen (Bsp.: D:\lollo\test.doc)
  Dim objFso As FileSystemObject
  Dim objFile As FileSet objFso = New FileSystemObject
  Set objFile = objFso.GetFile(sPathFile)

‘ FileName enthält dann bspw. den Text “test.doc”
  GetFileName = objFile.Name

Set objFile = Nothing
  Set objFso = Nothing
End Function

 

Sie können hier bei vbarchiv.net für mich voten!

Tags: , , , ,

Keine Kommentare »

Trackback URI | Kommentare als RSS

Einen Kommentar schreiben

Du musst angemeldet sein, um einen Kommentar zu schreiben.