Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder einen alternativen Browser verwenden.
Diskutiere dateien brennen im Windows XP Forum Forum im Bereich Betriebssysteme; Hallo!
Ich möchte für Win2k ein Skript schreiben, was Dateien sortiert, und dann brennt.
Soll so aussehen, dass es schaut, welche Dateien oder...
#1
K
Krabbe
Guest
Hallo!
Ich möchte für Win2k ein Skript schreiben, was Dateien sortiert, und dann brennt.
Soll so aussehen, dass es schaut, welche Dateien oder Ordner neu in dem Verzeichnis sind, und dann diese auf eine CD schreibt. Am besten eine bereits begonnene CD.
Welche Sprache sollte ich nehmen? Und wie könnte man das realisieren?
Danke schon mal.
#2
S
SchmidtMarco
Guest
Hallo,
Option Explicit
Dim objWshNetwork 'Netzwerk Objekt
Dim objWshShell 'Shell Objekt
Dim objFso 'File System Objekt
Dim objArgs 'Argumente Objekt
Dim objEnv 'Umgebungs Objekt
Dim objRegEx 'Regulärer Ausdruck
Set objWshNetwork = CreateObject(WScript.Network)
Set objWshShell = CreateObject(WScript.Shell)
Set objFso = CreateObject(Scripting.FileSystemObject)
Set objArgs = WScript.Arguments
Set objEnv = objWshShell.Environment(Process)
Set objRegEx = New RegExp
Dim Ordner, Datei, Erstelldatum, Datum_Akt, Diff, Quelle
Set Ordner = objFso.GetFolder(C:\Winnt)
For Each Datei in Ordner.Files
Quelle = Datei.Name
Datum_Akt = Now
Erstelldatum = Datei.DateCreated
Diff = Datum_Akt - Erstelldatum
Set Datei = objFso.GetFile(C:\Winnt & Quelle)
If Diff > 1 Then
objFso.MoveFile Datei, C:\Temp\ & Quelle
End If
Next
Also, den Quelltext speicherst du in einer Datei mit Endung .VBS!! Was macht es denn? Das Script überprüft in dem angegebenen Ordner (solltest du auch anpassen) alle Dateien auf ihr Erstelldatum. Wenn dieses älter als einen Tag ist (if diff > 1) dann weg in separaten ordner. statt movefile kannst du auch copy file nehmen, dann bleiben die Dateien im alten ordner auch noch da. Dann machst du einen Job mit Nero, der dir immer das gleiche Verzeichnis auf CD brennt. So hast du immer deine aktuellen Daten