Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.04.2024 06:38:10
CSV Uhrzeit die Differenz berechnen
28.04.2024 20:05:21
CreateObject auf MacOS
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verschieben von Ordnern Inhalt 32/64

Verschieben von Ordnern Inhalt 32/64
18.10.2021 21:35:53
Ordnern
Hallo alle zusammen,
leider habe ich nichts zu meinem Problem gefunden. Ich würde gerne unter Excel 32 und 64 bit einen Ordner verschieben.
Dabei soll er alle darin befindlichen Dateien und Unterordner mitkopieren.
Die Codes die ich bisher fande, haben nur im gleichen Ordner verschoben oder ging nur unter 32bit...
Weiß jemand Rat?
Vielen Dank für Eure BEmühungen.
Z:\AVS\01\Test
nach
Y:\02

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verschieben von Ordnern Inhalt 32/64
18.10.2021 22:21:17
Ordnern
Hallo Andreas,
teste mal folgendes Beispiel....
Code:



[Cc][+][-]



Option Explicit

#If VBA7 Then
 Private Declare PtrSafe Function SHFileOperationA Lib "Shell32.dll" ( _
         lpFileOp As SHFILEOPSTRUCT) As Long
  
  Type SHFILEOPSTRUCT
      hwnd               As LongPtr
      wFunc              As Long
      pFrom              As String
      pTo                As String
      fFlags             As Integer
      fAnyOperationsAborted As Long
      hNameMappings      As LongPtr
      lpszProgressTitle  As String
  End Type

#Else
  Private Declare Function SHFileOperationA Lib "shell32.dll" ( _
          lpFileOp As SHFILEOPSTRUCT) As Long
 
  Type SHFILEOPSTRUCT
      hwnd               As Long
      wFunc              As Long
      pFrom              As String
      pTo                As String
      fFlags             As Integer
      fAnyOperationsAborted As Boolean
      hNameMappings      As Long
      lpszProgressTitle  As String
  End Type

#End If
Private Const FN_MOVE = &H1&
Private Const FnF_SILENT = &H4&
Private Const FnF_RENAMEONCOLLISION = &H8&

Public Function VerschiebeOrdner(sQuelle As String, sZiel As String) As Long
' Verschiebt einen Ordner
  Dim FileStructur As SHFILEOPSTRUCT
 
  With FileStructur
    .wFunc = FN_MOVE
    .pFrom = sQuelle & vbNullChar & vbNullChar
    .pTo = sZiel
    .fFlags = FnF_RENAMEONCOLLISION + FnF_SILENT
  End With
 
  VerschiebeOrdner = SHFileOperationA(FileStructur)
End Function

Sub Test()
 VerschiebeOrdner "C:\Users\voltm\Desktop\CustomUIEditor", "D:"
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Verschieben von Ordnern Inhalt 32/64
19.10.2021 11:56:18
Ordnern
Super Karlheinz,
das hat geklappt, so wie ich mir das vorgestellt habe. Vielen Dank schonmal dafür!
Allerdings habe ich noch eine kleine Frage zu Deinem Code.
Wenn jemand eine Datei in dem zu verschiebenden Ordner geöffnet hat, dann kann logischerweise der Ordner ja auch nicht verschoben werden.
Gibt es da eine Möglichkeit vorher abzuchecken und ggf. vorher einen Hinweis anzuzeigen, dass nicht alle Dateien geschlossen sind, und man erst nach Bestätigen fortfahren kann? Quasi eine Art VorAbÜberprüfung?
AW: Verschieben von Ordnern Inhalt 32/64
19.10.2021 14:17:07
Ordnern
...und noch eine Frage....
wenn der Ordner schon vorhanden ist... wie kann ich dann beim Verschieben den Ordner einfach nur eingliedern? Derzeit passiert folgendes:
C:\Test\AB123\00000 zu verschiebender Ordner nach C:\Test\AB123\00001
aber C:\Test\AB123\00001 bereits vorhanden dann passiert folgendes:
C:\Test\AB123\00001\00000
Ich würde aber gerne, dass er C:\Test\AB123\00001 verwendet und dann dort seine Unterordner reinkopiert., ohne noch C:\Test\AB123\00001\00000 anzulegen.
Anzeige
AW: Verschieben von Ordnern Inhalt 32/64
19.10.2021 23:39:14
Ordnern
Hallo Andreas,
leider kann ich Deine Frage nicht beantworten...
Ggf. mal diesen Parameter FnF_RENAMEONCOLLISION weglassen und schauen, was passiert:
.fFlags = FnF_SILENT
' Bei Namenskollisionen im ZIEL wird ein neuer Name
' erzeugt (z.B. Kopie(2) von xy.tmp)
Private Const FnF_RENAMEONCOLLISION = &H8&
' Zeigt keine Fortschritts-Dialogbox (fliegende Blätter)
Private Const FnF_SILENT = &H4&
Zu den geöffneten Dateien hast Du ja schon Antworten erhalten.
Frage: Womit werden Textdateien bei Dir geöffnet. Mit Editor oder auch anderweitig?
Gruß
Karl-Heinz
Anzeige
AW: nachgefragt ...
19.10.2021 10:42:28
neopa
Hallo Andreas,
... warum möchtest Du das mit Excel erledigen lassen, was dies doch einfach mit Systemfunktionalität machbar ist?
Gruß Werner
.. , - ...
AW: nachgefragt ...
19.10.2021 11:57:25
Andreas
... Kann Dir leider nicht ganz folgen? ICh habe in Excel eine Art Liste, die den Dateipfad aktuell halten soll. Also auch verschieben soll, wenn dieser geändert wird.

303 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17