|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.02.2022 08:28:28 |
Christoph Wölger |
|
|
 Ausgewählte Dateien in "Archiv" Ordner verschieben |
03.02.2022 13:48:05 |
volti |
|
|
|
03.02.2022 18:38:51 |
Mase |
|
|
|
04.02.2022 10:46:30 |
Christoph |
|
|
|
04.02.2022 12:09:39 |
volti |
|
|
|
04.02.2022 12:15:31 |
Christoph |
|
|
Von:
volti |
Datum:
03.02.2022 13:48:05 |
Views:
528 |
Rating:
|
Antwort:
|
Thema:
Ausgewählte Dateien in "Archiv" Ordner verschieben |
|
Hallo,
hier ein Beispiel, wie man mehrere Dateien verschieben kann....
Jetzt müsste man halt wissen, wie Du die zu verschiebenden Dateien ermitteln möchtest. Z.B. per Dateiauswahldialog, anhand des Datums oder wie auch immer.
Ggf, wäre dann auch eine Schleife mit
Name "C:\AltPfad\Datei.xlsx" as "C:\NeuPfad\Datei.xlsx"
angebracht.
Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34 |
|
Option Explicit
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
Function VerschiebeOrdner(sQuelle As String, sZiel As String) As Long
' Verschiebt einen Ordner
Dim FileStructur As SHFILEOPSTRUCT
With FileStructur
.wFunc = &H1& ' FN_MOVE
.pFrom = sQuelle & vbNullChar & vbNullChar
.pTo = sZiel
.fFlags = &H4& + &H8& ' FnF_RENAMEONCOLLISION + FnF_SILENT
End With
VerschiebeOrdner = SHFileOperationA(FileStructur)
End Function
Sub Test1()
' Alle Text-Dateien verschieben
VerschiebeOrdner "D:\Altordner\*.txt", "D:\Archiv"
End Sub
|
_________
viele Grüße
Karl-Heinz
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
03.02.2022 08:28:28 |
Christoph Wölger |
|
|
Ausgewählte Dateien in "Archiv" Ordner verschieben |
03.02.2022 13:48:05 |
volti |
|
|
|
03.02.2022 18:38:51 |
Mase |
|
|
|
04.02.2022 10:46:30 |
Christoph |
|
|
|
04.02.2022 12:09:39 |
volti |
|
|
|
04.02.2022 12:15:31 |
Christoph |
|
|