Hi,
ich rufe aus Access heraus verschiedene Word und excelvorlagen auf, und befülle diese mit daten aus Access. Funktioniert !
Die Word und Excelvorlagen werden automatisch und D:\Ablage … mit einer Schadensnummer und dem namen der Word/Excelvorlage abgespeichert.
FilePath = „D:\Ablage“ & DLookup(„SchadNr“, „Schadensmeldung“, "SchadenID = " & Me.SchadenID) & „__“ & Me.FormListe.Column(4)
ergebnis: D:\ablage\1234__Erstbericht.doc
jetzt möchte ich dass zusätzlich nach D:\Ablage vorab noch ein Unterverzeichnis mit der Schadensnummer erstellt wird.
Ergebnis soltte so aussehen:
D:\Ablage\1234\1234__Erstbericht.doc
gruss Jürgen
Hallo Jürgen,
der Befehl den du suchst heißt MkDir.
Aufruf: MkDir Pfadname
Viele Grüße
Özhan
Hallo Jürgen,
in Visual Basic gibt es die MkDir-Anweisung, die einen Ordner erstellt. Der nachfolgende Code muss an entsprechender Stelle eingebunden werden:
FilePath = „D:\Ablage“ & DLookup(„SchadNr“, „Schadensmeldung“, "SchadenID = " & Me.SchadenID) & „__“ & Me.FormListe.Column(4) & „“ & SchadNr
MkDir FilePath
Gruß
Horst Müller
Hi Jürgen,
das ist ganz einfach. Einfach vor dem Speichern in Word folgende Routine aufrufen, die dir den kompletten Ordnerpfad anlegt:
Private Declare Function MakeSureDirectoryPathExists Lib „imagehlp.dll“ (ByVal lpPath As String) As Long
Public Function Filesystem_Ordnerstruktur_anlegen(ByVal Pfad_komplett As String)
’
Dim RetVal As Long
If right$(Pfad_komplett, 1) „“ Then
Pfad_komplett = Pfad_komplett & „“
End If
’ Verzeichnis erstellen
RetVal = MakeSureDirectoryPathExists(Pfad_komplett)
If RetVal = 0 Then
Filesystem_Ordnerstruktur_anlegen = False
Else
Filesystem_Ordnerstruktur_anlegen = True
End If
End Function
Viele Grüße
Jochen
Hallo Jürgen,
Ordner erstellst du mit dem FileSystemObject. Suche danach in Google zusammen mit „Ordner erstellen“. Wie z.B. hier: http://www.office-loesung.de/ftopic434115_0_0_asc.php
Grüsse
Egon
Hi Jürgen,
versuche es mal so:
Public oFSO As New FileSystemObject
’ Existiert der Ordner? Wenn Nein, dann anlegen.
If Not oFSO.FolderExists(„D:\Ablage\1234“) Then
oFSO.CreateFolder(„D:\Ablage\1234“) Then
End If
Denn Pfad kannst Du wie in deinem Beispiel auch mit der Dlookup Funktion suchen.
Gruß
Thomas