Unterordner anlegen pfad ist vom aktuellen Datensatz abhängig

Question

ich möchte per VBA einen unterordner erstellen, wobei der Pfad vom gerade geöffneten Datensatz abhängt

ich habe pro Datensatz jeweils einen Ordner, der jeweils nach zwei Feldnamen benannt ist : C:\Name Vorname
Ich möchte bei Bedarf einen Unterordner für den gerade geöffneten Datensatz anlegen mit MKDIr
Das ergebnis soll sein:
C.\Name Vorname\Verfahren1
wie benennt man den Pfad für den Ordner, wenn er vom gerade aktuellen Datensatz abhängt
irgend wie mit "Me!" ???

Answer 1

Hallo vlatika,

Der vorhandene Ordner heißt "Neuer Ordner" der Unterordner heißt "Verfahren1.

Button:

Private Sub Befehl24_Click()

Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.folderexists("c:\Neuer Ordner") = False Then
Set f = fs.createfolder("c:\Neuer Ordner")
Set f = fs.createfolder("c:\Neuer Ordner\Verfahren1")
Else
If fs.folderexists("c:\Neuer Ordner\Verfahren1") = False Then
Set f = fs.createfolder("c:\Neuer Ordner\Verfahren1")
End If
End If

End Sub

Die Ordnernamen wären nach den Erfordernissen anzupassem.


Gruß

Paul1

getestet mit ACCESS 2003

Answer 2

Ergänzung:

Der Button wurde in der Entwurfsansicht eines Formulares erstellt.

Gruß

Paul1