vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB Skript (VBS)
Re: For Schleife bei VB-Skript 
Autor: gandal
Datum: 05.01.06 17:05

So funktionierts:

Dim WshShell, Fs
Dim ziel(4)
Dim AppData
Dim i

' Scripting- und Filesystemobjekt erstellen
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")

Appdata = WshShell.ExpandEnvironmentStrings("%APPDATA%")

ziel(0) = Appdata
ziel(1) = ziel(0) & "\Sun"
ziel(2) = ziel(1) & "\Java"
ziel(3) = ziel(2) & "\Deployment"
ziel(4) = ziel(3) & "\security"

checkfile = ziel(4) & "\copy.log"

'object.CopyFile ( source, destination[, overwrite] )

For i = lbound(ziel) To ubound(ziel)
If Not Fso.FolderExists(ziel(i)) Then
' Wenn unmittelbar nach "CreateFolder" eine "(" folgt,
' wird der Aufruf als Funktion interpretiert.
' ... nicht gewünscht.
Fso.CreateFolder ziel(i)
End If
Next

' Objekte wieder freigeben, sie werden nicht mehr benötigt. Sollte man immer machen !

Set Fso = Nothing
Set WshShell = Nothing
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
For Schleife bei VB-Skript11.953Holger04.01.06 10:29
Re: For Schleife bei VB-Skript2.503Elwood04.01.06 12:00
Re: For Schleife bei VB-Skript2.028gandal05.01.06 16:18
Re: For Schleife bei VB-Skript1.946gandal05.01.06 17:05
Re: For Schleife bei VB-Skript1.718Holger07.01.06 08:39

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel