Hallo @ alle,
Ich habe hier ein kleines Problem.
Wir sollen für unser Backup die Ordnergrössen (Wachstum) aufzeichnen und Speichern um einen Speicherplatz Forcast ertellen zu können.
Am Anfang hatte es sich nur um einen Ordner mit Unterordner gehandelt, das war kein Problem wenn auch ( Asche über mein Haupt ) dies ziemlich dirty gelöst habe.
CODE HIER
Nun Haben Sich aber die Bedingungen geändert und es sind wesentlich mehr Ordner inklusive Unterordner dazu gekommen.
Hier meine frage an euch fällt euch eine Möglichkeit ein das ganze Rekrusiv zu machen ?
Danke für eure Hilfe im Voraus
Gruss
Ref
Ich habe hier ein kleines Problem.
Wir sollen für unser Backup die Ordnergrössen (Wachstum) aufzeichnen und Speichern um einen Speicherplatz Forcast ertellen zu können.
Am Anfang hatte es sich nur um einen Ordner mit Unterordner gehandelt, das war kein Problem wenn auch ( Asche über mein Haupt ) dies ziemlich dirty gelöst habe.
CODE HIER
Visual Basic-Quellcode
- ' Declaration parts here
- Set MyFiles = CreateObject("Scripting.FileSystemObject")
- Set wshnet = CreateObject("WScript.Network")
- Set wshshell = CreateObject("WScript.Shell")
- Dim strComputer
- strComputer = wshnet.Computername
- Dim ausgabe
- Dim datum
- Dim zeit
- set ausgabe = WScript.CreateObject("WScript.Shell")
- datum = Date
- zeit = Time
- timestamp = datum & " " & zeit
- '=============================================================================================================================================================================================
- ' Include the Folders
- '*****************************************************************************************
- ''Folder 1
- strPfad1 = "S:\Backup\Linux_Full"
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFolder = objFSO.GetFolder(strPfad1)
- varSize = objFolder.Size
- GBsize1 = round(varsize / 1024 /1024 /1024,2)
- MsgBox "Size: " & GBSize1 & " GB"
- '*****************************************************************************************
- 'Folder 2
- strPfad2 = "S:\Backup\SAP_Full"
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFolder = objFSO.GetFolder(strPfad2)
- varSize = objFolder.Size
- GBsize2 = round(varsize / 1024 /1024 /1024,2)
- MsgBox "Size: " & GBSize2 & " GB"
- '*****************************************************************************************
- 'Folder 3
- strPfad3 = "S:\Backup\SQL_Full"
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFolder = objFSO.GetFolder(strPfad3)
- varSize = objFolder.Size
- GBsize3 = round(varsize / 1024 /1024 /1024,2)
- MsgBox "Size: " & GBSize3 & " GB"
- '*****************************************************************************************
- 'Folder 4
- strPfad4 = "S:\Backup\VeeamConfigBackup"
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFolder = objFSO.GetFolder(strPfad4)
- varSize = objFolder.Size
- GBsize4 = round(varsize / 1024 /1024 /1024,2)
- MsgBox "Size: " & GBSize4 & " GB"
- '*****************************************************************************************
- 'Folder 5
- strPfad5 = "S:\Backup\Win2003_Full"
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFolder = objFSO.GetFolder(strPfad5)
- varSize = objFolder.Size
- GBsize5 = round(varsize / 1024 /1024 /1024,2)
- MsgBox "Size: " & GBSize5 & " GB"
- '*****************************************************************************************
- 'Folder 6
- strPfad6 = "S:\Backup\Win2012R2_Full"
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFolder = objFSO.GetFolder(strPfad6)
- varSize = objFolder.Size
- GBsize6 = round(varsize / 1024 /1024 /1024,2)
- MsgBox "Size: " & GBSize6 & " GB"
- '=============================================================================================================================================================================================
- ' create the loging Data output
- Logeintrag1 = timestamp & ";" & strComputer & ";" & strPfad1 & ";" & GBsize1
- Logeintrag2 = timestamp & ";" & strComputer & ";" & strPfad2 & ";" & GBsize2
- Logeintrag3 = timestamp & ";" & strComputer & ";" & strPfad3 & ";" & GBsize3
- Logeintrag4 = timestamp & ";" & strComputer & ";" & strPfad4 & ";" & GBsize4
- Logeintrag5 = timestamp & ";" & strComputer & ";" & strPfad5 & ";" & GBsize5
- Logeintrag6 = timestamp & ";" & strComputer & ";" & strPfad6 & ";" & GBsize6
- '=============================================================================================================================================================================================
- 'Deklaration der Variablen für das Logfile
- filename = "C:\TEMP\test.logdat" ' <---- Hier den Pfad und den Dateinamen des zu schreibenden Logfiles eintragen
- '=============================================================================================================================================================================================
- ' create the filesystem Object
- Const ForAppending = 8
- Set fs = CreateObject("Scripting.FileSystemObject")
- ' Logdatei zum Anhängen der Eintrage laden
- Set textstream = fs.OpenTextFile(filename, ForAppending, True)
- ok = (Err.number = 0)
- If ok Then
- On Error Goto 0
- textstream.WriteLine Logeintrag1
- textstream.WriteLine Logeintrag2
- textstream.WriteLine Logeintrag3
- textstream.WriteLine Logeintrag4
- textstream.WriteLine Logeintrag5
- textstream.WriteLine Logeintrag6
- textstream.Close'
- Logeintrag_OK = "Folgender Logeintrag wurde erzeugt:" & vbcr & vbcr & Logeintrag
- ' MsgBox Logeintrag_OK,,"Logeintragung erfolgreich:"
- Else
- MsgBox "Fehler: " & Err.Description
- End If
Nun Haben Sich aber die Bedingungen geändert und es sind wesentlich mehr Ordner inklusive Unterordner dazu gekommen.
Hier meine frage an euch fällt euch eine Möglichkeit ein das ganze Rekrusiv zu machen ?
Danke für eure Hilfe im Voraus
Gruss
Ref
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Refnex“ () aus folgendem Grund: Servernamen entfernt