Dateiname

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Dateiname von: Brit
Geschrieben am: 03.03.2005 12:43:12

Hallo
Ich möchte den Name einer Datei ohne Pfad und Anhang zurückgeben.
Den Pfad bekomme ich mit "Dir" heraus, aber mit dem folgenden Code
erscheint trotzdem noch der volle Dateiname z.B. " archiv.eps"
Es soll aber nur "archiv" stehen!

Dim name
name = Left(Dir(ZuOeffnendeDatei(i)), Len(ZuOeffnendeDatei(i)) _
- Len(Right(ZuOeffnendeDatei(i), 4)))

Wo liegt mein Fehler?
Danke und Tschau!
Brit

Bild


Betrifft: AW: Dateiname von: Martin Beck
Geschrieben am: 03.03.2005 12:58:01

Hallo Brit,

was gibt denn

MsgBox ZuOeffnendeDatei(i)
MsgBox Dir(ZuOeffnendeDatei(i))

zurück?

Noch 2 Hinweise:

Len(Right(ZuOeffnendeDatei(i), 4))

ist doch immer 4, kannst Du also vereinfachen.

name soltest Du nicht als Variablenbezeichnung verwenden, da der Begriff bereits in VBA belegt ist.

Gruß
Martin Beck


Bild


Betrifft: AW: Dateiname von: Brit
Geschrieben am: 03.03.2005 13:20:25

Hallo Martin

Bei MsgBox ZuOeffnendeDatei(i) kommt der gesamte Pfad der Datei heraus z.B. H:\eigene Bilder\archiv.eps
Bei MsgBox Dir(ZuOeffnendeDatei(i))kommt nur der Dateiname mit anhang raus also z.B. archiv.eps!
Und das hab ich jetzt nicht verstanden:
"Noch 2 Hinweise:

Len(Right(ZuOeffnendeDatei(i), 4))

ist doch immer 4, kannst Du also vereinfachen."
Wenn ich da nur die 4 eingebe, gibt er mir nichts raus!
Gruß Brit


Bild


Betrifft: AW: Dateiname von: c0bRa
Geschrieben am: 03.03.2005 13:26:26

hallo

Brit<< Bei MsgBox ZuOeffnendeDatei(i) kommt der gesamte Pfad der Datei heraus z.B. H:\eigene Bilder\archiv.eps
Brit<< Bei MsgBox Dir(ZuOeffnendeDatei(i))kommt nur der Dateiname mit anhang raus also z.B. archiv.eps!

wenn bei dir(ZuOeffnendeDatei(i)) der dateiname rauskommt dann reicht doch einfach:

left(dir(ZuOeffnendeDatei(i)),len(dir(ZuOeffnendeDatei(i)))-4)

oder versteh ich was falsch?

Das Forum lebt auch von Rückmeldungen...
c0bRa


Bild


Betrifft: AW: Dateiname von: Brit
Geschrieben am: 03.03.2005 13:29:12

Hallo,
das funktioniert ja super!
Danke!
Brit


Bild


Betrifft: AW: Dateiname von: Martin Beck
Geschrieben am: 03.03.2005 14:00:37

Hallo Brit,

Right(ZuOeffnendeDatei(i), 4) liefert einen String der Länge 4, da Du ja die rechten 4 Zeichen extrahierst. Mit

Len(Right(ZuOeffnendeDatei(i), 4))

bestimmst Du dann die Länge diese (Teil-)Strings, und die muß logischerweise immer 4 sein. Also kannst Du statt

Len(Right(ZuOeffnendeDatei(i), 4))

einfach 4 schreiben.

Gruß
Martin Beck


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dateiname"