Dateinamen speichern ohne Dateityp

16/04/2010 - 08:17 von Reiner Selting | Report spam
Guten Morgen zusammen,
mit folgenden Code lese ich PDF-Dateien aus einem Verzeichnis aus.

AktPDF = Dir(SuchVerzeichnis & "\" & DatTyp)
While Len(AktPDF) > 0
Debug.Print AktPDF
rs.AddNew
rs("Rechnungsbezeichnung") = AktPDF
rs.Update
AktPDF = Dir ' nàchste Datei
Wend
klappt auch nur möchte ich das nur der Name ohne .PDF gespeichert
wird.
Kann mir jemand weiterhelfen

Gruß
Reiner
 

Lesen sie die antworten

#1 Gunter Avenius
16/04/2010 - 08:42 | Warnen spam
Hallo Reiner,

Reiner Selting schrieb folgendes:
mit folgenden Code lese ich PDF-Dateien aus einem Verzeichnis aus.

AktPDF = Dir(SuchVerzeichnis & "\" & DatTyp)
While Len(AktPDF) > 0
Debug.Print AktPDF
rs.AddNew
rs("Rechnungsbezeichnung") = AktPDF
rs.Update
AktPDF = Dir ' nàchste Datei
Wend
klappt auch nur möchte ich das nur der Name ohne .PDF gespeichert
wird.
Kann mir jemand weiterhelfen



probiere es so:
rs("Rechnungsbezeichnung") = mid (AktPDF,1,len(AktPDF)-4)

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com

http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de - http://www.ribboncreator2010.de

Ähnliche fragen