Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Excel Variable (LW.DriveLetter) in Pfadangabe einbauen

Mitglied: florengray

florengray (Level 1) - Jetzt verbinden

24.10.2007, aktualisiert 18:07 Uhr, 7079 Aufrufe, 2 Kommentare

Hallo,
Ich hoffe es gibt diesen Beitrag noch nicht?.

Also, ich möchte in einer Tabelle versch. Backupgrößen von Acronis True Image anzeigen lassen.
Meine Backups von den versch. Laufwerken sind immer im gleichen "Restpfad" untergebracht, nur ,dass sich der Ordner mit dem Volumenamen ändert.

Es soll also in einer Schleife nach und nach die Laufwerksinformationen ausgelesen werden, (funktioniert) und dann die Grösse von den Backupdateien. Dabei soll in dem Pfad LW.VolumeName ersetzt werden durch das Laufwerk, welches gerade in der Schleife ausgelesen wird.

Vielleicht einfache mit dem Code:

Option Explicit

Private Sub CommandButton1_Click()
'benötigt Verweis auf "Microsoft Scripting Runtime"
Dim fso As New FileSystemObject
Dim LW As Drive
Dim Spalte As Integer
Spalte = 2
Cells.Clear

Range("A1") = "Laufwerk"
Range("A2") = "Volume Name"
Range("A3") = "Größe"
Range("A4") = "Freier Speicher"
Range("A5") = "Belegter Speicher"
Range("A6") = "Vollst. Backup"
Range("A7") = "Diff. Backup"
Range("A8") = "max. Größe Diff.Backup"
Range("A9") = "Gültigkeit Diff.Backup"

On Error Resume Next

For Each LW In fso.Drives

Cells(1, Spalte) = LW.DriveLetter
Cells(2, Spalte) = LW.VolumeName
Cells(3, Spalte) = Format(LW.TotalSize / 1000000, "0.000")
Cells(4, Spalte) = Format(LW.FreeSpace / 1000000, "0.000")
Cells(5, Spalte) = Format(Cells(3, Spalte) - Cells(4, Spalte), "0.000")
??? Cells(6, Spalte) = Format(CreateObject("Scripting.FileSystemObject").GetFile("Z:\LW.VolumeName\Vollständiges Backup LW.DriveLetter.tib").Size / 1000000, "0.000") ???

Spalte = Spalte + 1

Next
Cells(2, 2) = "Diskette"
Cells(2, 6) = "DVD"
Cells(2, 7) = "CD"

Range("A:Z").HorizontalAlignment = xlCenter
Range("1:1,A:A").Select
Selection.Font.Bold = True
Range("A:Z").Columns.AutoFit
Range("A1").Select
End Sub

Wo die Fragezeichen stehen: Dort ist in dem Pfad LW.VolumeName eingebaut.
Ich >hoffte< dass Excel z.B. "Daten" dafür einsetzt, dann den Ordner mit dem Backup findet und dann die Grösse auslesen kann.

Aber es passiert gar nix.
Ein Pfad lautet z.B. Z:\Daten\Vollständiges Backup E.tib


Könnt ihr mir helfen???
Mitglied: bastla
24.10.2007 um 17:59 Uhr
Hallo florengray!

Das sollte mit folgender VBA-Zeile klappen (da Du ja mit "fso" bereits ein "FileSystemObject" hast, kannst Du gleich dieses verwenden):
01.
Cells(6, Spalte) = Format(fso.GetFile("Z:\" & LW.VolumeName & "\Vollständiges Backup " & LW.DriveLetter & ".tib").Size / 1000000, "0.000")
Grüße
bastla
Bitte warten ..
Mitglied: florengray
24.10.2007 um 18:07 Uhr
Mensch super!
Ich hatte schon so etwas ähnliches ausprobiert, aber wahrscheinlich doch mit den "" einen Fehler gemacht.
Klappt jetzt!
Vielleicht taucht später noch ne Frege auf, aber bis jetzt erstmal DANKESCHÖN!!!
Bitte warten ..
Ähnliche Inhalte
Datenbanken
Variablen einbauen Access
gelöst Frage von Dr.CornwallisDatenbanken2 Kommentare

Hallo zusammen, Ich möchte in einer Abfrage eine Variable einbauen. Jetzt habe ich ein Modul mit folgenden Code angelegt: ...

Batch & Shell
Powershell: Variable in Pfad einbauen
gelöst Frage von ThunderbirdOPBatch & Shell2 Kommentare

Hallo Leute, ich würde gerne eine Variable in einen Pfad einsetzen, bekomme aber immer den Fehler zurück, dass der ...

Microsoft Office
Suchfunktion Excel einbauen
gelöst Frage von lupi1989Microsoft Office6 Kommentare

Hallo Leute, ich bräuchte bitte eure Hilfe,. weil ich da nicht weiterkomme. Hab ein Beispiel hier und hoffe, dass ...

Batch & Shell
Umlaute in Pfadangaben
gelöst Frage von goodbytesBatch & Shell8 Kommentare

Hallo, ich stehe leider immer noch vor dem leidigen Thema Umlaute in Batches :- Bei Dateinamen und in den ...

Neue Wissensbeiträge
Ausbildung

Linux-Ausstieg in Niedersachsen - Windows statt Bugfix

Information von StefanKittel vor 2 TagenAusbildung35 Kommentare

Sind ja nur Steuergelder

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 4 TagenSpeicherkarten5 Kommentare

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 4 TagenSicherheit1 Kommentar

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Hardware

100.000 Mikrotik-Router ungefragt von Hacker abgesichert

Information von 7Gizmo7 vor 5 TagenHardware4 Kommentare

Hallo zusammen, da hier ja öfters mal von Mikrotik gesprochen wird. Trotz Updates klafft eine Sicherheitslücke in Hundertausenden Mikrotik-Routern. ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Passwortwechsel Zeitpunkt festlegen
Frage von Looser27Windows Userverwaltung27 Kommentare

Guten Morgen liebe Kolleginnen und Kollegen, da es eine Userin in meinem Urlaub geschafft hat, sich vom AD vollständig ...

Windows Server
Probleme im AD am Außenstandort
gelöst Frage von emeriksWindows Server19 Kommentare

Hi, wir haben ein Problem mit AD und GPO am Außenstandort und ich stehe momentan mächtig auf dem Schlauch. ...

Switche und Hubs
POE-Switche
gelöst Frage von MiStSwitche und Hubs13 Kommentare

Guten Morgen, ich überlege ob ich in unserem Netzwerk die aktuellen Switche (D-LINK DGS-1210-28) durch PoE-Switche ersetzen soll. Der ...

Windows Server
DNS - Bedingte Weiterleitung
gelöst Frage von m8ichaelWindows Server11 Kommentare

Guten Tag zusammen, ich stehe gerade bzgl. einer bedingten DNS-Weiterleitung etwas auf dem Schlauch: Ich möchte, dass für bestimmte ...