Office: (Office 2016) Ordner mit Access verschieben

Hallo zusammen

ich habe ein Problem und bekomme es einfach nicht hin. Ich würde gern wenn in Access ein Feld geändert wird ein bestehender Ordner verschoben werden soll. Dieser Ordner wurde vorher von Access erstellt, Z:2_Abbauten" & Me!AA & " ; " & Me!SiteA & " - " & Me!SiteB. In dem Format lasse ich den Ordner erstellen.
Im Anhang sende ich mal die Code mit dem ich verschieben will.

Ich Danke euch schon einmal im Voraus.

Gruß Steffen

:)

 

Hallo,

dafür besitzt das FileSystemObject die beiden Methoden .CopyFolder oder .MoveFolder.

Ulrich

 

Hallo

vielen Dank für deine schnelle Antwort. Bekomm es aber leider trotzdem nicht hin.

ich habe auch oFSO.MoveFolder "f:temp", "f:Ordnertemp" probiert. das geht nicht.

Danke für deine Hilfe

Gruß Steffen

 

Hallo Steffen,

mit "das geht nicht" kann keiner etwas anfangen.

Ulrich

 

Hallo Sorry ich gelobe besserung *Smilie

 

das geht nicht - das sind die für alle Helfer brauchbarsten Fehlermeldungen!*mad.gif*

 

Servus Shorty00604,
Die Syntax lautet:
Code:

 

Hallo Steffen,

das Bild paßt jetzt aber nicht zu deiner Aussage. Die Syntax ist doch eindeutig:
Code:

Ulrich

 

\@Shorty00604,
wie kommst du zu deinen Codes?
Einfach mal irgend etwas versuchen?

Warum schaust du nicht in der Online Hilfe, wenn du dich nicht auskennst?

Weißt du wie man die Hilfe aufruft und wie man sie nutzt?

 

leider bin ich noch Access Neuling und versuche es mir mit Suchen beizubringen. Meinst du die Hilfe in Access?

ich habe den Code jetzt angepasst bekomme keiner Fehlermeldung mehr aber der Ordner wird leider auch nicht verschoben. Kannst du mir hier bitte helfen.

Private Sub Rechnunggestelltam_Change()

' Ordner kopieren
Dim fso As New FileSystemObject
Dim Folder As Folder
Dim sFolderPath As String
Dim sDestPath As String

' Welcher Ordner soll kopiert werden?
sFolderPath = "Z:2_Abbauten" & Me!AA & " ; " & Me!SiteA & " - " & Me!SiteB

' Wohin soll der Ordner kopiert werden?
sDestPath = "Z:2_Abbauten2_abgebaut1_Abgerechnet"

' Kopiervorgang starten
Set Folder = Objekt.MoveFolder("Z:2_Abbauten" & Me!AA & " ; " & Me!SiteA & " - " & Me!SiteB, "Z:2_Abbauten2_abgebaut1_Abgerechnet")
Folder.Copy sDestPath
End Sub


vielen dank

 

Servus,
Einem Change Ereignis würde ich das nicht zuordnen.
Eher einem Button.
(Optional und flexibler: Die Variablen sFolderPath und sDestPath würde ich über einen FileDialog
ermitteln und in 2 ungebundenen Textfeldern festhalten und von dort auslesen.)

Code:

 

Hallo Shorty,

auch wenn du ein Einsteiger bist, kannst du doch lesen, oder?

die beiden Zeilen:
Code:

entsprechen doch beide schon von der Syntax her nicht den Lösungsvorschlägen, die du hier bekommen hast. Wie kommt man also darauf?

Vielleicht solltest du nicht suchen, sondern gezielt in der OH (Referenz) nachlesen:
https://docs.microsoft.com/de-de/off...mobject-object
und dir dort die Beschreibungen zu den Methoden "CopyFolder" und "MoveFolder" ansehen.

Ulrich

 

\@knobbi38,

"Once upon a time"... Es war einmal, dass es die OH auch offline in Access gab.
Heute bekommt man bei extrem vielen Erklärungsanfragen nur noch eine allgemeine MS-Antwortseite und verliert die Lust, da länger noch weiterzusuchen.
Hast Du da einen Tipp?
Zu Shorty00604: Ich hab Access auch und fast nur über die Foren gelernt und hatte das Glück, auf unendlich geduldige Helfer zu treffen, welche ihre Beratungsformen wunderbar auf den Kenntnisstand des Fragestellers einstellen konnten. Du erinnerst mich da sehr an diese damaligen Helfer.

@Shorty00604: Sehr viele der Helfer hier sind Profis. Aber nicht jeder davon
hat die Begabung zu lehren. Oft wird das mit Belehren verwechselt, was einen
Anfänger verschrecken kann. Da musst Du durch.

 

HAllo Ohrkester

danke für deine Hilfe.es funktioniert jetzt zum Teil.

Wenn ich den Quelle Pfad nehme wo er sich den Ordner suchen soll dann bekomm ich ein Fehler. Der Ordner wurde aber vorher mit der Beschriftung/Formatierung erstellt.

Geb ich ein festen Ordern an z.b test dann verschiebt das Access.

Vielen Dank




Private Sub Rechnunggestelltam_Change()

'Ordner kopieren
Dim fso As Object
Dim Folder As Folder
Dim sFolderPath As String
Dim sDestPath As String

' Welcher Ordner soll kopiert werden?
sFolderPath = "Z:2_Abbauten" & Me!AA & " ; " & Me!SiteA & " - " & Me!SiteB

' Wohin soll der Ordner kopiert werden?
sDestPath = "Z:2_Abbauten2_abgebaut1_Abgerechnet"

' Kopiervorgang starten
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFolder sFolderPath, sDestPath

End Sub

 

\@Ohrkester:
mit OH meinte ich tatsächlich Online-Hilfe, die du hier für alle Office-Produkte in deutsch findest (inkl. der Referenz für VBA und der Scripting Objekte):
https://docs.microsoft.com/de-de/off.../api/overview/

Zumindest für die Office Version 2013 kann man diese auch nachträglich herunterladen und installieren:
https://www.microsoft.com/en-us/down....aspx?id=40326

Für den Einstieg sollte das zum Nachschlagen reichen, auch wenn man selber einen neuere Office-Version installiert hat. Mit den Informationen kann man dann sicherlich auch gezielter im Forum oder Netz suchen.

Eventuell einen Buchtip:
Walter Doberenz & Thomas Gewinnus
sind zwar schon ein bißchen älter, aber nach wie vor finde ich sie ganz gut gelungen und es gibt auch für ältere Beispieltexte immer noch Aktualisierungen zum herunterladen.
Alternativ die Bücher vom Rheinwerk-Verlag.

Gruß Ulrich