Thema Datum  Von Nutzer Rating
Antwort
23.11.2021 11:10:15 Paul
NotSolved
23.11.2021 11:36:01 Mase
Solved
23.11.2021 11:37:26 Paul
NotSolved
23.11.2021 12:28:20 Mase
NotSolved
23.11.2021 13:33:44 Paul
NotSolved
23.11.2021 13:44:45 Paul
NotSolved
23.11.2021 14:17:54 Mase
NotSolved
23.11.2021 14:30:31 Gast41014
NotSolved
23.11.2021 14:59:10 Mase
NotSolved
23.11.2021 15:27:31 Gast41014
NotSolved
23.11.2021 14:32:58 Gast7747
NotSolved
23.11.2021 14:47:34 Mase
NotSolved
24.11.2021 15:43:10 Gast22799
NotSolved
Blau Verschieben von Unterordnern mit Inhalt
23.11.2021 17:19:54 Gast50526
NotSolved
23.11.2021 23:11:19 volti
NotSolved

Ansicht des Beitrags:
Von:
Gast50526
Datum:
23.11.2021 17:19:54
Views:
452
Rating: Antwort:
  Ja
Thema:
Verschieben von Unterordnern mit Inhalt

Najut... mal ♪ take-on-me ♫ Spaß beiseite

 

Ich würde das so angehen:

1) Liste der zu kopierenden Dateien erstellen - mit kompletter Pfadangabe (absolut).

Man hätte also eine Liste mit Einträgen wie

z.B. "C:\LocalUserFolder\Projects\SERIALNUMBER\folder\subfolder\filename.ext"

2) absolute Pfadangabe in relative umwandeln (den Teil des Projektpfades wegschneiden)

Mit lokalem Projektverzeichnis "C:\LocalUserFolder\Projects\"

wird aus den Einträgen (s. Beispiel oben) demnach: "\SERIALNUMBER\folder\subfolder\filename.ext"

3) die nun relative Pfadangabe wird nun der Pfad für den Zielort vorangestellt.

Mit Zielverzeichnis "\\servername\project_folder\"

wird aus den Einträgen (s. Beispiel oben) demnach:

"\\servername\project_folder\SERIALNUMBER\folder\subfolder\filename.ext"

  With New FileSystemObject
    Debug.Print .BuildPath("\\servername\project_folder\", "\SERIALNUMBER\folder\subfolder\filename.ext")
  End With

ergibt: "\\servername\project_folder\SERIALNUMBER\folder\subfolder\filename.ext"

4) Hilfsfunktion schreiben, die diese Angabe in seine einzelnen Pfadebenen zerlegt und der Reihe nach prüft ob diese Ebene existiert oder erst erstellt werden muss.

...

5) Datei ins Ziel kopieren.

...

6) Profit.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.11.2021 11:10:15 Paul
NotSolved
23.11.2021 11:36:01 Mase
Solved
23.11.2021 11:37:26 Paul
NotSolved
23.11.2021 12:28:20 Mase
NotSolved
23.11.2021 13:33:44 Paul
NotSolved
23.11.2021 13:44:45 Paul
NotSolved
23.11.2021 14:17:54 Mase
NotSolved
23.11.2021 14:30:31 Gast41014
NotSolved
23.11.2021 14:59:10 Mase
NotSolved
23.11.2021 15:27:31 Gast41014
NotSolved
23.11.2021 14:32:58 Gast7747
NotSolved
23.11.2021 14:47:34 Mase
NotSolved
24.11.2021 15:43:10 Gast22799
NotSolved
Blau Verschieben von Unterordnern mit Inhalt
23.11.2021 17:19:54 Gast50526
NotSolved
23.11.2021 23:11:19 volti
NotSolved