Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ordner überspringen
Autor: Der
Datum: 24.07.02 12:20
Hallo, ich würde gen wiessen wie ich einen Ordner überspringen kann ok zuerst mein code: -------------------------------------------------- Dim myFSO As FileSystemObject Dim myFolder As Folder Dim myFolder2 As Folder Dim myFile As File Private Sub Form_Load() Set myFSO = CreateObject("Scripting.FileSystemObject") Set myFolder = myFSO.GetFolder("C:Profiles") For Each myFolder2 In myFolder.SubFolders GoTo Error Else myFolder2.Delete Next For Each myFile In myFolder.Files myFile.Delete Next End Sub -------------------------------- so würde er ja alle ordner im verzeichnis crofiles löschen ich will aber das manche ordner nicht gelöscht werden. ICh habe das mal mit If myFolder2="All User" irgentwie versucht . habs aber net hingekriegt. wisst ihr weiter? also er soll alles ordner löschen bis auf die die ich ihm irgenwie eintragen muss danke der

Ordner überspringen	52	Der	24.07.02 12:20
Re: Ordner überspringen	282	Dieter	24.07.02 12:29
Re: Ordner überspringen	30	Der	24.07.02 12:32
Re: Ordner überspringen	263	Dieter	24.07.02 12:33
Re: Ordner überspringen	29	Der	24.07.02 13:35
Re: Ordner überspringen	36	Der	24.07.02 13:36
Re: Ordner überspringen	288	Dieter	24.07.02 13:41
Re: Ordner überspringen	61	Der	24.07.02 13:44
Re: Ordner überspringen	241	Dieter	24.07.02 14:34
Re: Ordner überspringen	37	Der	24.07.02 14: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übersicht

Suchen