maybe to bob phillips -next folder?

[Alvin Hansen]

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

[Bob Phillips]

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" <[email protected]> wrote in message
news:[email protected]...
> 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
>

[Alvin Hansen]

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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
> >
>
>
>