Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Per VBS Ordner mit Datum erstellen
Autor: Weiss der Geier
Datum: 09.08.07 20:59
Hallochen, Danke erstmal für die Mühe, habe es gleich versucht, das Skript bringt in Zeile 19 Zeichen 27 einen Fehler, womit ich leider nichts anfangen kann, Hier nochmal das Skript: Dim objFileSystem Dim objShell Dim szOrdner Dim szRegKey WScript.Sleep 500 Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") 'szOrdner = "O:\" & CStr(date) 'SzRegKey = "HKEY_CURRENT_USER\Software\HeadLight\GetRight\Config\DefaultDir" ' Ordner: Jahr-Monat szOrdner = "O:\" & Right(Date,4) & "-" & Left(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) ObjShell.RegWrite szRegKey,szOrdner SzRegKey = "HKEY_CURRENT_USER\Software\HeadLight\GetRight\Config\DefaultDir" If (objFileSystem.FolderExists(szOrdner)) Then Else objFileSystem.CreateFolder(szOrdner) ObjShell.RegWrite szRegKey,szOrdner End If Danke schon mal im voraus.

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.191	Weiss der Geier	09.08.07 20:59
Re: Per VBS Ordner mit Datum erstellen	2.322	Dieter	09.08.07 23:03
Re: Per VBS Ordner mit Datum erstellen	2.475	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