Hi
I use this code:
Set fso3 = CreateObject("Scripting.FileSystemObject")
Set folderobj = fso3.GetFolder("c:\" & tt & tal & kur1)
For Each fldr In folderobj.subFolders

For Each file In fldr.Files
myattr = file.Attributes
If myattr = 33 Then
ind = MsgBox("Filen " & file.name & " er skrivebeskyttet skal den slettes?
", vbOKCancel)
If ind = vbOK Then
fso3.deletefile file, True
End If
Else
fso3.deletefile file
End If
Next file
fldr.Delete force:=True
Next fldr

well its working but if i have a folder and in this have anew folder with a
file read only i dont get to the file?

Regards alvin

Hi Alovin,

If you want to check folders in a folder as well, you could add an
independent loop

For Each fldr2 in fldr.SubFolders
'etc
Next fldr2

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Alvin Hansen" wrote in message
...
Hi
I use this code:
Set fso3 = CreateObject("Scripting.FileSystemObject")
Set folderobj = fso3.GetFolder("c:\" & tt & tal & kur1)
For Each fldr In folderobj.subFolders

For Each file In fldr.Files
myattr = file.Attributes
If myattr = 33 Then
ind = MsgBox("Filen " & file.name & " er skrivebeskyttet skal den slettes?
", vbOKCancel)
If ind = vbOK Then
fso3.deletefile file, True
End If
Else
fso3.deletefile file
End If
Next file
fldr.Delete force:=True
Next fldr

well its working but if i have a folder and in this have anew folder with
a
file read only i dont get to the file?

Regards alvin

Hi bob
Thanks.

regards alvin


"Bob Phillips" skrev:

Hi Alovin,

If you want to check folders in a folder as well, you could add an
independent loop

For Each fldr2 in fldr.SubFolders
'etc
Next fldr2

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Alvin Hansen" wrote in message
...
Hi
I use this code:
Set fso3 = CreateObject("Scripting.FileSystemObject")
Set folderobj = fso3.GetFolder("c:\" & tt & tal & kur1)
For Each fldr In folderobj.subFolders

For Each file In fldr.Files
myattr = file.Attributes
If myattr = 33 Then
ind = MsgBox("Filen " & file.name & " er skrivebeskyttet skal den slettes?
", vbOKCancel)
If ind = vbOK Then
fso3.deletefile file, True
End If
Else
fso3.deletefile file
End If
Next file
fldr.Delete force:=True
Next fldr

well its working but if i have a folder and in this have anew folder with
a
file read only i dont get to the file?

Regards alvin