another objFSO question.

[Jeff Uchtman]

Is there a way to omit files listed if using objFSO to query a folder? I
have it set to list every image in a folder and return name, size, date with
the ability to view or delete the images, but some images should not be
deleted. I would like to omit these name from the query objFSO returns.

Thanks
Jeff

[Manohar Kamath [MVP]]

Since you have to list the file programatically, you could omit files when
you list them:

For Each File in oFolder.Files
' List files only if they are not images
If LCase(Right(File.Name, 4)) <> ".gif" OR LCase(Right(File.Name, 4)) <>
".jpg" then
' Write code to show the files
End If

Next

--
Manohar Kamath
Editor, .netBooks
[url]www.dotnetbooks.com[/url]


"Jeff Uchtman" <uchtman@megavision.com> wrote in message
news:O8U5BkrlDHA.988@TK2MSFTNGP10.phx.gbl...

> Is there a way to omit files listed if using objFSO to query a folder? I
> have it set to list every image in a folder and return name, size, date

with

> the ability to view or delete the images, but some images should not be
> deleted. I would like to omit these name from the query objFSO returns.
>
> Thanks
> Jeff
>
>

[Jeff Uchtman]

Thanks Manohar. Is there anyway to list the files I don't want shown and
draw the exclude from the list as this folder contains other gif's and
jpg's?

Jeff


"Manohar Kamath [MVP]" <mkamath@TAKETHISOUTkamath.com> wrote in message
news:eCoLtBslDHA.2080@TK2MSFTNGP10.phx.gbl...

> Since you have to list the file programatically, you could omit files when
> you list them:
>
> For Each File in oFolder.Files
> ' List files only if they are not images
> If LCase(Right(File.Name, 4)) <> ".gif" OR LCase(Right(File.Name, 4))

<>

> ".jpg" then
> ' Write code to show the files
> End If
>
> Next
>
> --
> Manohar Kamath
> Editor, .netBooks
> [url]www.dotnetbooks.com[/url]
>
>
> "Jeff Uchtman" <uchtman@megavision.com> wrote in message
> news:O8U5BkrlDHA.988@TK2MSFTNGP10.phx.gbl...

> > Is there a way to omit files listed if using objFSO to query a folder?

I

> > have it set to list every image in a folder and return name, size, date

> with

> > the ability to view or delete the images, but some images should not be
> > deleted. I would like to omit these name from the query objFSO returns.
> >
> > Thanks
> > Jeff
> >
> >

>
>

[Ken Schaefer]

You could do something like:
a) create a delimited list of files to exclude (eg a comma separated list)
b) for each file, see if InStr(strExcludeList, strFileName) returns > 1 and
if so, exclude the file, else write it out.

Cheers
Ken

"Jeff Uchtman" <uchtman@megavision.com> wrote in message
news:ey7F7HslDHA.684@TK2MSFTNGP09.phx.gbl...
: Thanks Manohar. Is there anyway to list the files I don't want shown and
: draw the exclude from the list as this folder contains other gif's and
: jpg's?
:
: Jeff
:
:
: "Manohar Kamath [MVP]" <mkamath@TAKETHISOUTkamath.com> wrote in message
: news:eCoLtBslDHA.2080@TK2MSFTNGP10.phx.gbl...
: > Since you have to list the file programatically, you could omit files
when
: > you list them:
: >
: > For Each File in oFolder.Files
: > ' List files only if they are not images
: > If LCase(Right(File.Name, 4)) <> ".gif" OR LCase(Right(File.Name,
4))
: <>
: > ".jpg" then
: > ' Write code to show the files
: > End If
: >
: > Next
: >
: > --
: > Manohar Kamath
: > Editor, .netBooks
: > [url]www.dotnetbooks.com[/url]
: >
: >
: > "Jeff Uchtman" <uchtman@megavision.com> wrote in message
: > news:O8U5BkrlDHA.988@TK2MSFTNGP10.phx.gbl...
: > > Is there a way to omit files listed if using objFSO to query a folder?
: I
: > > have it set to list every image in a folder and return name, size,
date
: > with
: > > the ability to view or delete the images, but some images should not
be
: > > deleted. I would like to omit these name from the query objFSO
returns.
: > >
: > > Thanks
: > > Jeff
: > >
: > >
: >
: >
:
: