Kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kopieren

08.08.2006 09:46:17

Uduuh

AW: Kopieren

08.08.2006 10:18:55

nike

AW: Kopieren

08.08.2006 10:56:22

Uduuh

AW: Kopieren

08.08.2006 11:13:56

nike

AW: Kopieren

08.08.2006 12:45:50

Uduuh

AW: Kopieren

08.08.2006 14:09:37

Nike

Sub OrdnerKopieren() Dim oFS As Object, oFolder As Object, oSFolder As Object Dim n As Integer n = 1 Set oFS = CreateObject("scripting.filesystemobject") Set oFolder = oFS.getfolder("n:\test") For Each oSFolder In oFolder.subfolders If oSFolder.Name Like "action*" Or Int(oSFolder.datecreated) = DateValue("07.08.2006") Then oSFolder.Copy "c:\temp\" End If Next End Sub

Hi Udo,
oh shit ich bin echt schon zu lange raus, so wenig Zeilen?
Ich hab mir schon einen abgebrochen und noch nix brauchbares zustande gebracht ;-)
Dein Ansatz sieht schon mal ziemlich super aus, jetzt muss ich nur noch alle
Dateien, die ich unter test finde auch kopieren, nicht nur die Ordner,
die die Kriterien erfuellen ;-)
Danke auf jeden Fall schon mal fuer den Superanfang.
Das ganze geht dann ueber einige hundert Ordner,
die sollen entsprechend "ausgeduennt" kopiert werden ;-)
unter c:\temp\
liegen dann
c:\temp\Dat1
c:\temp\Daz2
c:\temp\Zzz3
...
c:\temp\Zonk999
und all diese Ordner muessen kopiert werden und ihr Inhalt entsprechend
ausgewaehlt auch kopiert werden ;-)
z.B.
c:\temp\Dat1\Action1\ nach D:\Dat1\Action1\
c:\temp\Dat1\Action2\ nach D:\Dat1\Action2\
c:\temp\Dat1\ini.txt nach D:\Dat1\ini.txt
c:\temp\Dat1\01234\ soll nicht nach D:\Dat1\01234\ weil von vorgestern ;-)
aber
c:\temp\Dat1\02345\ nach D:\Dat1\02345\ weil von gestern ;-)
Danke auf jeden Fall schon mal fuer Deinen Anfang.
Greetings in die Runde.
Bye
Nike

Hallo Nike,
hier mal ein Vorschlag:


Sub ReadFolders()
Dim oFS As Object, oFolder As Object, oSFolder As Object, oSFolder2 As Object
Dim n As Integer, strFolder As String
n = 1
strFolder = "c:\temp"
Set oFS = CreateObject("scripting.filesystemobject")
Set oFolder = oFS.getfolder(strFolder)
For Each oSFolder In oFolder.subfolders
For Each oSFolder2 In oSFolder.subfolders
If LCase(oSFolder2.Name) Like "action*" _
Or Int(oSFolder2.datecreated) = DateValue("7.8.2006") Then
Sheets(1).Cells(n, 2) = strFolder & "\" & oSFolder.Name & "\" & oSFolder2.Name
n = n + 1
End If
Next
Next
End Sub


Sub CopyFolders()
Dim oFS As Object, oFolder As Object, oFolder2 As Object
Dim n As Long, strZiel As String
strZiel = "n:\test2"
Set oFS = CreateObject("scripting.filesystemobject")
Set oFolder = oFS.getfolder("c:\temp")
If Dir(strZiel, vbDirectory) = "" Then
MkDir strZiel
End If
With Sheets(1)
For n = 1 To .Cells(65536, 2).End(xlUp).Row
If .Cells(n, 1) = 1 Then
Set oFolder2 = oFS.getfolder(.Cells(n, 2))
If Dir(strZiel & "\" & oFolder2.parentfolder.Name, vbDirectory) = "" Then
MkDir strZiel & "\" & oFolder2.parentfolder.Name
End If
oFolder2.Copy strZiel & "\" & oFolder2.parentfolder.Name & "\"
.Cells(n, 1) = "x"
End If
Next
End With
End Sub

Gruß ausm Pott
Udo

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread