Thema "Re: einfache CD-Verwaltung" in Modellierung

einfache CD-Verwaltung

andreaszeike — Mon, 19 Aug 2002 16:48:00 GMT

ich hab einen Tipp bekommen, wie man auf einfache Weise seine CDs verwalten kann.

wie macht Ihr´s?

Gruß, az

sh: http://mitglied.lycos.de/azappa/public/Dokus/html-Dokus/CDs%20Archivieren/Backup.htm

Re: einfache CD-Verwaltung

Anonymous — Mon, 19 Aug 2002 18:45:00 GMT

Also wir arbeiten mit Retrospect und DAT-Streamer.
(Kostet allerdings einiges)
Allerdings läuft die Datensicherung vollautomatisch täglich nachts um 23:00 (oder wann immer man sonst will). Spezielle Dateien zu finden, ist ganz easy, weil eine Katalogdatei generiert wird.
Freitags machen wir dann zusätzlich eine Wochensicherung, deren aktuelles Band ich während der Woche zu hause habe, die abgeschlossenen sammelt einer der Chefs ausserhalb des Büros. So könnten wir jederzeit sämtliche Daten wiederherstellen.

Aber für den "zu Fuß"-Weg finde ich Deine Lösung sehr einfach und hilfreich, denn die ganzen Brenn-Programme taugen diesbzgl. ja alle nichts.

Re: einfache CD-Verwaltung

Mon, 19 Aug 2002 21:13:00 GMT

@Andreas
Ist ja charmant, daß da jemand noch die alten DOSenbefehle kann. Paß auf, daß Du es nicht nach > NUL schickst. 😉

Re: einfache CD-Verwaltung

David Kehr — Mon, 19 Aug 2002 23:07:00 GMT

aus der excel-ecke gibt es da auch was nettes...
suchen nach Dateien.... wieder nix wirkliches für den mac - oder?

hier das makro:

Dim z, unterordner As Variant

Sub Suchen()
Dim Laufwerk, Dateien As String
z = 2
'Tabellenbereich löschen
[a1:d4000] = ""
Laufwerk = "C:\"
Laufwerk = InputBox("In welchem Ordner wollen Sie suchen:", "Laufwerk & Ordner", "C:\")
If Laufwerk = "" Then Exit Sub
unterordner = MsgBox("Unterordner mit einbeziehen?", vbYesNo, "Unterordner")
Dateien = "*.*"
Dateien = InputBox("Nach welchen Dateien wollen Sie suchen:", "Dateityp", "*.*")
If Dateien = "" Then Exit Sub
Dateisuche Laufwerk, Dateien
End Sub

Sub Dateisuche(Laufwerk, Dateien)
Dim temp, wdhlg, Dateiname As String
On Error Resume Next
If Right(Laufwerk, 1) <> "\" Then Laufwerk = Laufwerk + "\"
temp = Dir(Laufwerk & Dateien)
Do While Len(temp)
Dateiname = Laufwerk & temp
Application.StatusBar = Dateiname
Cells(z, 1).Select
Cells(z, 1) = Laufwerk & temp
Cells(z, 2) = FileLen(Laufwerk & temp)
Cells(z, 3) = FileDateTime(Laufwerk & temp)
Cells(z, 4) = temp
z = z + 1
temp = Dir()
Loop
temp = Dir(Laufwerk, vbDirectory)
If unterordner = vbNo Then temp = ""
Do While Len(temp)
If (temp <> ".") And (temp <> "..") Then
If (GetAttr(Laufwerk & temp) And vbDirectory) = vbDirectory Then
Dateisuche Laufwerk & temp, Dateien
z = z - 1
wdhlg = Dir(Laufwerk, vbDirectory)
z = z + 1
Do While wdhlg <> temp
wdhlg = Dir()
Loop
End If
End If
temp = Dir()
Loop
On Error GoTo 0
Application.StatusBar = False
End Sub

Have Fun

Moffett

Re: einfache CD-Verwaltung

Tue, 20 Aug 2002 00:03:00 GMT

Wer zufällig Exel für den Mac hat, kanns vielleicht umstricken. Aber es gibt durchaus Share-/Freeware - Katalogisierer für den Mac. Nur halt nicht eine Flut wie am PC.
Mir langt aber schon das GDL programmieren, da muß ich nicht auch noch ein Proggie zusammenstricken, wenn es komplette Lösungen fertig gibt. 😉

Re: einfache CD-Verwaltung

andreaszeike — Tue, 20 Aug 2002 06:00:00 GMT

stimmt Frank... zum programmieren braucht´s meist zuviel Zeit!

...das Ding von Moffett kannst du aber einfach in Dein Excel VBA einsetzen (Makro erstellen), dann läuft´s sofort los (Makro aufrufen) und gibt Dir schöne Listen aus.

Hab´s ausprobiert, funzt sehr gut (+ ich habe wirklich KA von VBA!!)

Gruß, az

Thanx to Moffett!

Re: einfache CD-Verwaltung

Tue, 20 Aug 2002 06:06:00 GMT

Winzigweich freie Zone hier. 🙂