Speicherplatz überprüfen / Alex K ?
19.02.2004 11:25:27
Jacob
wie kriege ich es hin in der Routine Kopieren die größe, der zu kopierenden Dateien zu ermitteln und sie mit der Routine Speicherplatz zu vergleichen ?. In der Kopieren-Routine, Datei : Verzeichnisbaum.xls, Tabelle: Standard_Tab sind alle zu kopierenden Dateien eingetragen. Für Antworten wäre ich sehr dankbar.
Jacob
----------------------------------------------------------------------
Sub Speicherplatz()
Dim drvPath
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(Pfad))
s = "Laufwerk " & UCase(Pfad) & " hat noch " & FormatNumber(d.FreeSpace / 1048576, 0) & " Megabytes frei"
MsgBox s, vbOKOnly + vbInformation, "Speicherplatz"
End Sub
----------------------------------------------------------------------
Sub Kopieren()
Dim Ziel As String
Dim Quelle As String
Dim Mldg, Stil
On Error Resume Next
Zeile = "A"
Suchzelle = 1
Pfad = ActiveWorkbook.path
Datei = Pfad & "\Verzeichnisbaum.xls"
Quelle_Temp = Range("F18") & ":"
Ziel_Temp = ActiveWorkbook.path & "\O"
Workbooks.Open Datei
Sheets("Standard_Tab").Select
Do While Zeile <> ""
Err.Clear
Zeile = Range("A" & Suchzelle)
If Zeile = "" Then
Exit Do
Else
Quelle = Quelle_Temp & Zeile
Ziel = Ziel_Temp & Zeile
FileCopy Quelle, Ziel
Select Case Err.Number
Case Is = 52
MsgBox " Datei: " & Quelle & " ist nicht vorhanden !"
Case Is = 53
MsgBox " Datei: " & Quelle & " ist nicht vorhanden !"
End Select
Suchzelle = Suchzelle + 1
End If
Loop
ActiveWorkbook.Close savechanges = False
End Sub
Anzeige