Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.11.2021 11:10:15 |
Paul |
|
|
|
23.11.2021 11:36:01 |
Mase |
|
|
|
23.11.2021 11:37:26 |
Paul |
|
|
|
23.11.2021 12:28:20 |
Mase |
|
|
|
23.11.2021 13:33:44 |
Paul |
|
|
|
23.11.2021 13:44:45 |
Paul |
|
|
|
23.11.2021 14:17:54 |
Mase |
|
|
|
23.11.2021 14:30:31 |
Gast41014 |
|
|
|
23.11.2021 14:59:10 |
Mase |
|
|
|
23.11.2021 15:27:31 |
Gast41014 |
|
|
|
23.11.2021 14:32:58 |
Gast7747 |
|
|
|
23.11.2021 14:47:34 |
Mase |
|
|
|
24.11.2021 15:43:10 |
Gast22799 |
|
|
|
23.11.2021 17:19:54 |
Gast50526 |
|
|
Verschieben von Unterordnern mit Inhalt |
23.11.2021 23:11:19 |
volti |
|
|
Von:
volti |
Datum:
23.11.2021 23:11:19 |
Views:
1025 |
Rating:
|
Antwort:
|
Thema:
Verschieben von Unterordnern mit Inhalt |
Hallo,
ich habe mir Deinen doch recht umfangreichen Code nicht näher angesehen, aber wenn Du Ordner verschieben möchtest, ist vielleicht auch nachfolgender Code interessant für Dich.
Der Ordner 1954 im Beispiel existierte nicht und wurde angelegt....
Vielleicht klappen ja auch Deine Wünsche.
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 "D:\1955\DCIM\100MEDIA", "D:\1954\DCIM\100MEDIA"
End Sub
Gruß
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
|
|
23.11.2021 11:10:15 |
Paul |
|
|
|
23.11.2021 11:36:01 |
Mase |
|
|
|
23.11.2021 11:37:26 |
Paul |
|
|
|
23.11.2021 12:28:20 |
Mase |
|
|
|
23.11.2021 13:33:44 |
Paul |
|
|
|
23.11.2021 13:44:45 |
Paul |
|
|
|
23.11.2021 14:17:54 |
Mase |
|
|
|
23.11.2021 14:30:31 |
Gast41014 |
|
|
|
23.11.2021 14:59:10 |
Mase |
|
|
|
23.11.2021 15:27:31 |
Gast41014 |
|
|
|
23.11.2021 14:32:58 |
Gast7747 |
|
|
|
23.11.2021 14:47:34 |
Mase |
|
|
|
24.11.2021 15:43:10 |
Gast22799 |
|
|
|
23.11.2021 17:19:54 |
Gast50526 |
|
|
Verschieben von Unterordnern mit Inhalt |
23.11.2021 23:11:19 |
volti |
|
|