Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB-Script
Autor: Claus
Datum: 27.08.01 14:29
Kann mir jemand helfen? Dieser Befehl klappt nur unter Computern mit dem Scripting Host. Wie kann ich den Befehl so umstellen das er auch unter VB klappt ohne Scripting Host? Function CreateFolder(path) Set fs = CreateObject("Scripting.FileSystemObject") 'CreateFolder = 0 path2 = Trim(LCase(path)) If Right(path2, 1) = "\" Then path2 = Left(path2, Len(path2) - 1) End If ordnerliste = Split(path2, "\") 'On Error Resume Next For Each ordner In ordnerliste gesamtpfad = gesamtpfad + ordner + "\" If Not fs.FolderExists(gesamtpfad) Then fs.CreateFolder (gesamtpfad) End If 'CreateFolder = CreateFolder + 1 Next End Function

VB-Script	120	Claus	27.08.01 14:29
VB pur	377	Dieter	27.08.01 14:33
Re: VB pur	64	Claus	27.08.01 19:25
Aber genau das macht doch die Funktion (oT)	363	Dieter	27.08.01 19:47
Re: Aber genau das macht doch die Funktion (oT)	59	Claus	28.08.01 13:35
Kleines Missgeschick hier in der Anzeige des Codes	367	Dieter	28.08.01 18:02

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