Thema Datum  Von Nutzer Rating
Antwort
04.12.2024 19:42:34 Rudi
NotSolved
04.12.2024 22:56:53 ralf_b
NotSolved
Rot Ordnerabgleich zwischen Zelle und Laufkwerkordner
 04.12.2024 23:48:11 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
04.12.2024 23:48:11		 Views:
28		 Rating:
     
Antwort:
  Ja
Thema:
Ordnerabgleich zwischen Zelle und Laufkwerkordner

Hi Rudi,

warum so umständlich mit Angabe es Zielordners in Spalte B? Wenn ich dich richtig verstehe willst du den Order 01012000 nach 012000 verschieben usw. du Brauchst bei der Angabe des Zielordners also nur die ersten beiden Zeichen des Quellordners weglassen. Das geht mit Right(Quellordner, Len(Quellordner) - 2)

Das eigentliche Verschieben kannst du mit dem ScriptingFileSystemObject erledigen indem du in einer Schleife alle Folders im Order Scans durchgehst und diese, sofern sie die Länge 8 haben mit der Move-Methode des entsprechenden Folder-Objekts an den entsprechenden Zielort mit der Länge 6 verschiebst. Ist der Zielordner nicht vorhanden, muss er mit der AddFolder-Methode angelegt werden.

Angenommen die neuen Monatsordner sollen im gleichen Ordner (Scans) sein wie die Tagesordner und die Tagesorder sollen Unterordner der Monatsordner werden, dann könnte der Code so aussehen:

Sub Verschieben()

  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder("D:\Daten\Entwicklung\Tests\Scans")
  For Each sf In f.SubFolders
    If Len(sf.Name) = 8 Then
      zielname = Right(sf.Name, 6)
      If Not fs.folderexists(f.Path & "\" & zielname) Then f.SubFolders.Add zielname
      sf.Move f.Path & "\" & zielname & "\" & sf.Name
    End If
  Next sf
  
End Sub

Gruß Mr. K.

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
04.12.2024 19:42:34 Rudi
NotSolved
04.12.2024 22:56:53 ralf_b
NotSolved
Rot Ordnerabgleich zwischen Zelle und Laufkwerkordner
 04.12.2024 23:48:11 xlKing
NotSolved