AW: Ordnerinhalte kopieren an Alex K
10.02.2004 14:40:10
Jacob
Hallo Alex,
ich stelle dir meiner ganze Prozedur zur Verfügung, vielleicht kannst du es dann besser verstehen. Die drei Prozeduren sind drei verschiedenen Schlatflächen zugeordnet. Der Hintergrund : es besteht ein Dateisystem (Datenbank) auf einem Server. Die sollte aber offline zur Verfügung gestellt werden, für Leute die einfach auf die entsprechenden Schaltflächen drücken sollen, um sich eine Kopie auf z.B. ein Laptop zu erstellen.
Viele Grüße
Jacob
Sub Anlegen()
On Error GoTo Fehlermeldung
Err.Clear
zeile = "A"
Suchzelle = 1
Pfad1 = ActiveWorkbook.path
Datei = Pfad1 & "\Verzeichnisbaum.xls"
Pfad2 = ActiveWorkbook.path & "\O"
MkDir (Pfad2)
Workbooks.Open Datei
Sheets("Tabelle1").Select
Do While zeile <> ""
zeile = Range("A" & Suchzelle)
If zeile = "" Then
Exit Do
Else
zeile = Left(zeile, Len(zeile) - 1)
End If
Pfad3 = Pfad2 & zeile
MkDir (Pfad3)
Suchzelle = Suchzelle + 1
Loop
ActiveWorkbook.Close savechanges = False
MsgBox "Verzeichnisse angelegt unter " & Chr(13) & Chr(13) & Pfad2 & Chr(13)
Fehlermeldung:
If Err = 75 Then
MsgBox "Verzeichnis" & Chr(13) & Chr(13) & Pfad2 & Chr(13) & Chr(13) & " besteht bereits" & Chr(13)
End If
End Sub
---------------
Sub Kopieren()
Dim Dateien As String
Dim Ziel As String
Dim Quelle As String
Quelle = Range("F18") & ":\"
Ziel = ActiveWorkbook.path & "\O"
Dateien = Dir(Quelle & "*.*")
Do While Dateien <> ""
FileCopy Quelle & Dateien, Ziel & Dateien
Dateien = Dir()
Loop
End Sub
---------------
Sub Loeschen()
Dim Mldg, Stil, Antwort, Text1
Ziel = ActiveWorkbook.path & "\O"
Meldung = "Alle Daten in " & Ziel & " werden gelöscht !" & Chr(13) & Chr(13) & "Möchten Sie fortfahren ?" & Chr(13)
Stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = "ACHTUNG !"
Antwort = MsgBox(Meldung, Stil, Titel, Hilfe, Ktxt)
If Antwort = vbYes Then
Set Var = CreateObject("Scripting.FileSystemObject")
Var.deleteFolder (Ziel)
End If
End Sub
line zur Verfügung gestellt werden,