Ordner im Anmeldescript anlegen

Tech-Archive recommends: Fix windows errors by optimizing your registry

Schönen guten Morgen!

hab leider zu meinem Problem nichts mehr gehört und versuche daher, noch
einmal um Hilfe zu bitten.
Vielleicht kann mir dazu jemand helfen:
(Hab ja dankenswerterweise - wie man unten sieht - schon einen Tipp
bekommen, leider hat das jedoch so nicht funktioniert, d.h. es kam zwar
keine Fehlermeldung, die Ordner wurden jedoch nicht angelegt!)

DANKE
Helmut



>> Hallo NG!
>>
>> Bin Script-Neuling und möchte in einem Login-Script (Domäne - Windows
>> Server
>> 2003 - alle Clients XP) folgendes erreichen:
>>
>> Das Script soll zuerst prüfen, ob folgender Pfad vorhanden ist:
>>
>> path = "C:\Dokumente und Einstellungen\%username%\Lokale
>> Einstellungen\Anwendungsdaten\Autodesk"
>>
>> Wenn nicht, sollen alle Ordner wie folgt angelegt werden:
>>
>> path = "C:\Dokumente und Einstellungen\%username%\Lokale
>> Einstellungen\Anwendungsdaten\Autodesk"
>> dir1 = "\AutoCAD LT 2004" (Unterordner von path)
>> dir2 = "\R9" (Unterordner von dir1)
>> dir3 = "\deu" (Unterordner von dir2)
>>
>>
>> Wahrscheinlich nicht schwierig - aber wie gesagt, bin absoluter
>> "Script-Neuling"!
>>
>> Kann mir jemand helfen?
>>
>> DANKE
>> Helmut
>>
>>

"dieseyer.de" <dieseyerde@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im Newsbeitrag
news:4F928E6D-1970-4708-BDDE-AED8E0C81345@xxxxxxxxxxxxxxxx
> Hallo!
>
> So (oder so ähnlich) müsste es gehen:
>
> path = WshShell.SpecialFolders("Desktop")
> path = Mid( path , 1, InStrRev( path , "\" ) )
> path = path & "Lokale Einstellungen\Anwendungsdaten\Autodesk"
>
> dir1 = "\AutoCAD LT 2004" ' (Unterordner von path)
> dir2 = "\R9" ' (Unterordner von dir1)
> dir3 = "\deu" ' (Unterordner von dir2)
>
> If not fso.FolderExists( path ) Then fso.CreateFolder path
> If not fso.FolderExists( path & dir1 ) Then fso.CreateFolder path & dir1
> If not fso.FolderExists( path & dir2 ) Then fso.CreateFolder path & dir2
> If not fso.FolderExists( path & dir3 ) Then fso.CreateFolder path & dir3


.

Relevant Pages

  • Re: Memtest-Versionen
    ... Hallo Helmut und auch gleich an Werner, ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.german.windowsxp.sonstiges)
  • Re: kein sound mehr in WinXP - Totenstille
    ... >> Kaan Harmankaya schrieb: ... >>> Hallo Leute!! ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.german.windowsxp.multimedia)
  • Re: end if??
    ... > Hallo Carl, ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.sqlserver)
  • Re: Frage zur HOAI
    ... Hallo, ... formulierten Aufgabenstellung vorstellen, ... Prev by Date: ... Next by Date: ...
    (de.sci.architektur)
  • Re: Blue-Screen nach XP SP2 Update zusammen mit CD-Rom
    ... >> Hallo, ... >> wenn beim Hochfahren schon eine CD bzw. DVD im Laufwerk ist. ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.german.windowsxp.setup)