Daten Festplatte auslesen?

Hallo,

ich habe mir mit Excell (Offoce 15) eine Anwendung für Backup's geschrieben,das mir anzeigt, auf welcher Festplatte welches Backup ist und wie viel Platznoch auf welcher BackupPlatte ist. Das Auslesen der BackupPlatten geschied miteinem Makro, siehe Auszug unten. Das funktionierte bisher auch einwandfrei.

Makroauszug


Sub LwU()

Dim FSO As Object
Dim drv As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Set drv = FSO.GetDrive(FSO.GetDriveName(FSO.GetAbsolutePathName("U:")))

Range("P3") = drv.freeSpace / 1024000000
Range("P4") = drv.TotalSize / 1024000000
Range("P2") = Range("P4") - Range("P3")

End Sub

Sub LwV()

Dim FSO As Object
Dim drv As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Set drv = FSO.GetDrive(FSO.GetDriveName(FSO.GetAbsolutePathName("V:")))

Range("P10") = drv.freeSpace / 1024000000
Range("P11") = drv.TotalSize / 1024000000
Range("P9") = Range("P11") - Range("P10")

End Sub

Sub LwW()

Dim FSO As Object
Dim drv As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Set drv = FSO.GetDrive(FSO.GetDriveName(FSO.GetAbsolutePathName("W:")))

Range("P17") = drv.freeSpace / 1024000000
Range("P18") = drv.TotalSize / 1024000000
Range("P16") = Range("P18") - Range("P17")

End Sub

Bisher hatte ich 3 Backupplatten und zwar 2x je 1TB (U:+V:) und eine 2TB (W:).Die je 1TB Platten U: und V: habe ich jetzt durch je 8TB ersetzt.Seit dem erkennt Sub LwU() Range("P4")= drv.TotalSize / 1024000000
und Sub LwV() Range("P11")= drv.TotalSize / 1024000000

nicht mehr die Größe der Festplatte.

Hat jemand vieleich ne Idee?

Gruß Dele

Excel makro
0 Antworten

Meistgelesene Fragen zum Thema Excel

Wie kann ich in einem Excel-Feld einen Tab-Sprung einfügen?

3 Antworten

Wie kann ich in Excel seitlich scrollen?

2 Antworten

Welche Gründe kann es haben, dass Excel ein Wort nicht findet, obwohl es existiert?

3 Antworten

Was ist eine CSV-Datei und was ist der Unterschied zwischen CSV (MS-DOS) und CSV (Macintosh)?

2 Antworten

Wie kann man in Excel eine "Bedingte Formatierung" auf alles anwenden?

1 Antwort

Wie erstelle ich mit Excel 2010 die Grafik einer ABC-Analyse?

5 Antworten

Was bedeutet das schwarze Ausrufezeichen auf gelben Grund bei einem Excel-Icon?

1 Antwort

Excel Formel zum Minus rechnen?

3 Antworten

Microsoft Office Programme behalten beim neu Aufsetzen meines Laptops?

3 Antworten

Excel - Neue und gute Antworten

Beliebte Themenkombinationen