Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateinamen

Forumthread: Dateinamen

Dateinamen
04.12.2003 18:41:26
Thomas
Kann ich auch nur den Filename bekommen? bei der Funktion Application.GetopenFilename

c:\windows\Filename


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen
04.12.2003 19:30:58
Günther Abel

Sub MachMal()
Dim dNam$
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
Call SplitPath(fileToOpen, dNam)
End If
MsgBox dNam
End Sub

Public

Sub SplitPath(ByVal sFullPath As String, _
sFilename As String)
Dim nPos As Long
nPos = InStrRev(sFullPath, "\")
If nPos > 0 Then
sFilename = Mid$(sFullPath, nPos + 1)
End If
End Sub

Anzeige
AW: Dateinamen
05.12.2003 08:35:58
Thomas
Danke schön! :)

Gruß
Thomas
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige