Bat fil til at slette alt i "Documents and Settings"

jeps mail addy og den er på vej :)

tubber >> poster du den ikke herinde, så vi kan se den ? :-)

kenny[at]ponycar.dk

jo kan jeg godt, men der er et lille prob hehe den vil også slette de 2 andre mapper så skal lige ha kringlet den

troede den her gik:

rd /S /Q "c:\dokuments and settings" men så vil den fjerne det biblotek der hedder dokuments and settings.......

Det behøver ikke at være en bat fil, bare det virker på alle mine 2000/xp klienter

når du nu kører med roaming profiles er admin og all users så ikke også roaming ?

Der ligger jo stadig en lokal kopi af profilen, og det er den jeg vil have fjernet...

det du vil ha er den skal slette alt i folderen på nær mappen administrator og all users ?

Dim varCount As Integer
Dim varTal As Integer
Dim fso As New Scripting.FileSystemObject


Private Sub Form_Load()
Dir1.Path = "C:\Documents and Settings"
varCount = Dir1.ListCount
varTal = 0
Do While varTal <= Dir1.ListCount - 1
List1.AddItem (Dir1.List(varTal))
varTal = varTal + 1
Loop
Do While List1.ListCount > 0
If List1.List(0) = "C:\Documents and Settings\Administrator" Then
MsgBox List1.List(0)
List1.RemoveItem (0)
ElseIf List1.List(0) = "C:\Documents and Settings\All Users" Then
MsgBox List1.List(0)
List1.RemoveItem (0)
Else
MsgBox List1.List(0)
fso.DeleteFolder "" & List1.List(0) & "", True
List1.RemoveItem (0)
End If
Loop
End
End Sub

den der gør det men den skal compiles som en exefil

Hvis du sender den til min mail så den bare spiller, så er der 200 point...

ok compiler den lige om lidt, skal lige ned med den lille - bleer og sådan noget

Og det må meget gerne være sådan at den bare sletter, ikke noget med at man skal sige ja eller nej

Lige sig til om det virker efter hensigten :)

Hmm. jeg har ikke fået den endnu...
kenny@ponycar.dk

tager måske også lidt tid :)
det er 1,5 mb

Den virker nogenlunde...
Problemet er bare at den stopper med at slette når den når til admin eller all users, og kommer så med en access denied...

Og den kommer også op med en box hvergang den finder en bruger at slette...

Arh det er fordi den prøver at slette ham jeg er logget ind som...
Og det er administrator.KARLSLUNDE

Kan du ikke komme med hvad admin mappen og all users hedder helt nøjagtigt, så skal jeg prøve ligge det ind

administrator | administrator.KARLSLUNDE | all users må ikke slettes

ok det vare lige et øjeblik :)

Så er den ude af huset her :) har også fjernet de boxe :)
havde glemt at fjerne dem *ups*

Nu kommer boxene ikke mere.
Men nu sletter den administrator (ikke administrator.KARLSLUNDE).
Og den stopper stadig med access denied når den kommer til administrator.KARLSLUNDE...

(Jeg ved godt jeg er besværlig)

kom lige med navnene en gang til og huske at case skal passe altså store bogst. der hvor der er store og små der hvor der er små.....ved ikke om den er case sensetive.......

Administrator | Administrator.KARLSLUNDE | All Users | Default User

Disse navne må ikke røres...

SÅ spiller musikken!
Læg et svar, så skal du få dine velfortjente point...

Det kommer her :)

Den endte med at se sådan her ud :)

Dim varCount As Integer
Dim varTal As Integer
Dim fso As New Scripting.FileSystemObject
Private Sub Form_Load()
Dir1.Path = "C:\Documents and Settings"
varCount = Dir1.ListCount
varTal = 0
Do While varTal <= Dir1.ListCount - 1
    List1.AddItem (Dir1.List(varTal))
    varTal = varTal + 1
Loop
Do While List1.ListCount > 0
    If List1.List(0) = "C:\Documents and Settings\Administrator" Then
        'MsgBox List1.List(0)
        List1.RemoveItem (0)
    ElseIf List1.List(0) = "C:\Documents and Settings\Administrator.KARLSLUNDE" Then
        'MsgBox List1.List(0)
        List1.RemoveItem (0)
    ElseIf List1.List(0) = "C:\Documents and Settings\All Users" Then
        'MsgBox List1.List(0)
        List1.RemoveItem (0)
    ElseIf List1.List(0) = "C:\Documents and Settings\Default User" Then
        'MsgBox List1.List(0)
        List1.RemoveItem (0)
    Else
        'MsgBox List1.List(0)
        fso.DeleteFolder "" & List1.List(0) & "", True
        List1.RemoveItem (0)
    End If
Loop
End
End Sub