Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ordner überspringen
Autor: Der
Datum: 24.07.02 13:36
es geht leider immer nochnicht. was machen ich dem falsch? erlöscht immernoch alle dateien 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 If Not myFolder.Name = "All User" Then myFolder2.Delete End If Next For Each myFile In myFolder.Files myFile.Delete Next End Sub

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	30	Der	24.07.02 13:35
Re: Ordner überspringen	37	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