Slette indhold af mange mapper

hmm kan du ikke lave en over mappe som de alle ligges ind i, og derefter søge på *.* markere dem og slette ? (virker kun hvis der ingen filer er som skal gemmes, og man selvfølgelig har administrator rettigheder)

Jo men på den måde får man jo ikke fjernet evt. undermapper

Mvh Glenn

Nej det har du jo faktisk ret i... Hmmm jeg tror jeg ville gøre noget andet, (jeg går ud fra i kører AD), oprette en OU kaldet elever, oprette et dir, f.eks elevers filer, og så markere samtlige elever i OUen, angive elevernes homepath til X: (så sharet bliver mappet til X: (i dette tilfælde)man kan markere samtlige brugere i en OU og angive deret homepath således \\server\share\%username% så opretter den selv et biblotek med brugerens navn

Kunne man ikke bare "stille sige" i e-mappernes overmappe, og slette dem med "rd /S /Q e*", og derefter genopret dem via en loop, via en batch fil? :-)

Skal undermapperne (dem i eX mapperne) genoprettes?

Smid denne kode i en bat fil (f.eks. "fix.bat"), og placer den i mappen, hvor alle e-mapperne ligger:

@echo off
cls

rem *********
rem * "taeller" tæller hvor langt den er nået
rem *
rem * ret "AntalMapper" til det antal mapper, der skal oprettes
rem *********

set taeller=0
set AntalMapper=5

:slet
set /A taeller=taeller + 1
if exist "e%taeller%" rd /S /Q "e%taeller%"
if %taeller% == %AntalMapper% goto reset
goto slet


:reset
set taeller=0


:opret
set /A taeller=taeller + 1
md "e%taeller%"
if %taeller% == %AntalMapper% goto AfslutProgram
goto opret

:AfslutProgram


Tallet "5" er bare en test. Hvis du synes at det virker, erstat 5 med 200.

Grunden til at jeg bruger en loop, til at slette mapperne, er fordi den ikke accepterede wildcards (dvs; e* som betyder "alle der starter med 'e'")..

thesurfer, ja men på den måde sættes rettighederne ikke automatisk på de oprettede dirs, det sker når man opretter dem på den måde jeg skrev tidligere, og med 200 forskellige brugere er det ikke sjovt at sætte det manuelt på hver enkelt mappe :)

hej igen

lige for at præcisere. på HD'en g: ligger mapperne e1 til e200. disse mapper er delte og skal bibeholdes. ALT i mapperne skal slettes.

Mvh Glenn

ok, så er det nememste at gøre som jeg tidligere skrev (altså sætte home folder i profile uder brugernes profil, derved oprettes de med de rigtige rettigheder)

kan det ikke lade sig gøre via batfil metoden?

Mvh Glenn

Både og da bat filen IKKE sætter rettigheder, skal du selv gøre dette, og du kan nøjes med at skrive \\servernavn\sharenavn\%username% og den opretter selv bibliotekerne med de rette rettigheder, således at bruger 1 har kun adgang til sit eget bibliotek, osv.

kan man ikke bare slette "slet" og "opret" delene og få den til at gå ind i mapperne med cd "e%taeller%" og derefter slette alt og igen gå ud af mappen md cd..

Mvh Glenn

Ret:

strPath = "D:\Temp\e_test" ' ret stien til mappem med "e"-mapperne, UDEN "\" til sidst

Gem koden i en .vbs fil (f.eks. "fix.vbs"):

'------------------------------------------------------------------
option explicit

dim strPath, objFSO, objFolder
dim objSletMappe, objSletFil

dim objOverMappe, overmappe

strPath = "D:\Temp\e_test" ' ret stien til mappem med "e"-mapperne, UDEN "\" til sidst

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)

' slet mapper i "e"-mapperne:
for each overmappe in objFolder.subfolders
set objOverMappe = objFSO.GetFolder(overmappe.Name)

    For Each objSletMappe In objOverMappe.SubFolders
      objFSO.DeleteFolder strPath & "\" & overmappe.Name & "\" & objSletMappe.Name,True
    Next
next

' slet filer i "e"-mapperne:
for each overmappe in objFolder.subfolders
set objOverMappe = objFSO.GetFolder(overmappe.Name)

    For Each objSletFil In objOverMappe.files
        objFSO.DeleteFile strPath & "\" & objOverMappe.Name & "\" & objSletFil.Name,True
    Next
next

set objFSO = nothing
set objFolder = nothing

msgbox "Kode udført" ' beskeden kan ændres eller fjernes

'------------------------------------------------------------------

Hvis du har et anti-virus program installeret, skal du give scriptet adgang til FileSystemObject.

Koden kan også skrives sådan her:


'------------------------------------------------------------------
option explicit

dim strPath, objFSO, objFolder
dim objSletMappe, objSletFil

dim objOverMappe, overmappe

strPath = "D:\Temp\e_test" ' ret stien til mappem med "e"-mapperne, UDEN "\" til sidst

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)

for each overmappe in objFolder.subfolders
set objOverMappe = objFSO.GetFolder(overmappe.Name)

    ' slet mapper i "e"-mapperne:
    For Each objSletMappe In objOverMappe.SubFolders
      objFSO.DeleteFolder strPath & "\" & overmappe.Name & "\" & objSletMappe.Name,True
    Next

    ' slet filer i "e"-mapperne:
    For Each objSletFil In objOverMappe.files
        objFSO.DeleteFile strPath & "\" & objOverMappe.Name & "\" & objSletFil.Name,True
    Next
next

set objFSO = nothing
set objFolder = nothing

msgbox "Kode udført" ' beskeden kan ændres eller fjernes
'------------------------------------------------------------------


husk: strPath = "D:\Temp\e_test" ' ret stien til mappem med "e"-mapperne, UDEN "\" til sidst

Hej

det virker fint mapper + filer bliver slettet, men programmet når ikke frem til messageboksen det kommer en fejl i linie 18 adgang nægtet.

ellers supert. Kom lige med et svar

Mvh Glenn

Her er et svar.

Jeg kan ikke teste (og finde fejlen), da jeg ikke har dit miljø (Windows 2000 server med dine rettigheder og mapper).

Scriptet kører fint hos mig. Altså må det være noget med rettighederne.

Prøv at erstatte linierne, så det kommer til at se sådan ud:


'------------------------------------------------------------------
option explicit
on error resume next

og sådan:

if err then msgbox "Der var fejl:" & vbcrlf & vbcrlf & err.number & " - " & err.description
msgbox "Kode udført" ' beskeden kan ændres eller fjernes
'------------------------------------------------------------------

mystisk, jeg er administrator på serveren.

Men mange tak for hjælpen msg boksen kan jeg godt undvære

Mvh Glenn

on error resume next løste problemet

tak Glenn

Det skal lige siges, at fejlen stadig opstår.. men nu kan den fortsætte.
Hvis du ikke vil ha' nogen meldinger, kan du enten slette "msgbox"-linierne helt, eller kommentere dem, så de ikke afvikles (sæt et ' tegn foran linien).

Takker for points.

ok tak ved ikke lige hvad fejlen består i da scriptet tilsyneladende køres igennem

Glenn

gf du er ved at opfinde den dybe tallerken engang til, featuren ligger jo allerede i serveren, men ok det er dit valg, jeg dropper ud af samtalen da du alligevel vil lave det på den mest besværlige måde.