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, 7064 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
SAN, NAS, DAS
QNAP NAS Datenschutz-Loop nach Firmware-Update
Tipp von vanTast vor 20 StundenSAN, NAS, DAS2 Kommentare

Moin, im allgemeinen Trend seine geänderten Datenschutzbedingungen den Kunden zukommen zu lassen kam die Firma QNAP auf die glorreiche ...

Datenschutz
DSGVO Datenschutzgesetz
Anleitung von 1Werner1 vor 21 StundenDatenschutz4 Kommentare

Moin, ja was ist das, da ist die DSGVO Datenschutzverordnung. Wie das Gesetz gibt es schon 2 Jahre? Nun ...

CPU, RAM, Mainboards

Neverending Story: Google und Microsoft melden neue Chip-Sicherheitslücke

Information von keine-ahnung vor 1 TagCPU, RAM, Mainboards1 Kommentar

Da kommt man mit dem fixen gar nicht mehr hinterher und die CPU erreichen wieder Rechenleistungen im Bereich des ...

Multimedia & Zubehör
AVM Fritz USB WLAN Sticks schneller einschalten
Tipp von NetzwerkDude vor 3 TagenMultimedia & Zubehör4 Kommentare

Die AVM Fritz WLAN Sticks haben in der Firmware 2 Modis: Einmal als Massenspeicher und einmal als WLAN Netzwerkkarte ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Powerline über zwei Stockwerke optimieren
gelöst Frage von DultusLAN, WAN, Wireless43 Kommentare

Guten Morgen liebes Forum, ich hätte einmal eine Frage bezüglich Powerline Adapter: Mein Problem ist seit gestern präsent, da ...

Windows Userverwaltung
Problem mit Benutzerprofil
Frage von lieferscheinWindows Userverwaltung24 Kommentare

Guten Tag liebe Community, folgendes Problem habe ich: User meldet sich auf Client A an - sein Homelaufwerk verbindet. ...

Rechtliche Fragen
DISKUSSION: Was bringt der Disclaimer "Wenn Sie nicht der Empfänger sind."
Frage von N8DragonRechtliche Fragen21 Kommentare

So oder ähnlich, lese ich immer wieder Kleingedrucktes am Ende diverser Mails. Letzten Endes wollen sie mir alle sagen, ...

Rechtliche Fragen
DSGVO - Impressum und Datenschutz auf Anmeldeseiten notwendig?
Frage von StefanKittelRechtliche Fragen20 Kommentare

Hallo, was mit gerade eingefallen ist. Muss man auf Anmeldeseiten auch ein Impressum und Datenschutzhinweis haben? Auch hier wird ...