Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Per VBS Ordner mit Datum erstellen
Autor: Weiss der Geier
Datum: 10.08.07 12:02
Soweit habe ich es shon verbogen bekommen, nur jetzt steht eben der Tag. Jahr und Unterordner der Monat und sonst keine Ahnung: Dim objFileSystem Dim objShell Dim szOrdner Dim szRegKey WScript.Sleep 500 Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") ' Ordner: Jahr-Monat szOrdner = "D:\Downloads\" & Left(Date, 2) & "." & Right(Date,2) If Not (objFileSystem.FolderExists(szOrdner)) Then objFileSystem.CreateFolder(szOrdner) ' Unterordner: Tag szOrdner = szOrdner & "\" & Mid(Date, 4, 2) If Not (objFileSystem.FolderExists(szOrdner)) Then objFileSystem.CreateFolder(szOrdner) SzRegKey = "HKEY_CURRENT_USER\Software\HeadLight\GetRight\Config\DefaultDir" ObjShell.RegWrite szRegKey,szOrdner objFileSystem.CreateFolder(szOrdner) ObjShell.RegWrite szRegKey,szOrdner Wir das auch jetzt dann in die Registry eingetragen?? wegens Getright! bis denne Uwe

Per VBS Ordner mit Datum erstellen	5.802	Weiss der Geier	11.07.07 15:25
Re: Per VBS Ordner mit Datum erstellen	2.414	Dieter	09.08.07 07:54
Re: Per VBS Ordner mit Datum erstellen	2.190	Weiss der Geier	09.08.07 20:59
Re: Per VBS Ordner mit Datum erstellen	2.321	Dieter	09.08.07 23:03
Re: Per VBS Ordner mit Datum erstellen	2.474	Weiss der Geier	10.08.07 10:34
Re: Per VBS Ordner mit Datum erstellen	2.502	Weiss der Geier	10.08.07 12:02
Re: Per VBS Ordner mit Datum erstellen	2.118	Weiss der Geier	10.08.07 12:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen