Shadrach wrote:
> *Here is what I have figured out so far..
>
> Set oFS = CreateObject("Scripting.FileSystemObject")
> Set oFolder = oFS.GetFolder("C:\Somefolder\Programs\")
> For Each oFolder In oFolder.SubFolders
> WScript.Echo oFolder.name
> If oFolder.name <> "FolderA" Then
> End If
> If oFolder.name <> "FolderB" Then
> End If
> If oFolder.name <> "FolderC" Then '
>
> Else filesys.DeleteFolder "c:\Somefolder\Programs\"
> oFolder.name
> End If
>
> Next *

Still looking for a solution to this.. c'mon coders


-
Shadrac
-----------------------------------------------------------------------
Posted via http://www.codecomments.co
-----------------------------------------------------------------------

Re: Delete unwanted subfolders by Ray

Ray
Thu Jul 15 18:26:11 CDT 2004

Just create one thread that explains exactly what you're trying to do, what
is not working, what errors you get, what unexpected results you get, and
other such pertinent details. Every time you post, you're starting a new
thread. Yes, some newsreaders may group your posts together because of the
shared subject line, but they shouldn't. So, to many, all they see is this
post. And from this post, I have no clue what you're trying to do. You
have some code, but you don't explain why you're dissatisfied with the code
or anything at all.

One of the problems with your posting is that you're going through some
web-based news feed. If you used an actual nntp client, you'd see what I
mean. Please see here if you're interested in seeing how to setup a
newsgroup application:

http://www.aspfaq.com/etiquette.asp?id=5007

Ray at home

"Shadrach" <Shadrach.19gdtq@mail.codecomments.com> wrote in message
news:Shadrach.19gdtq@mail.codecomments.com...
>
> Shadrach wrote:
> > *Here is what I have figured out so far..
> >
> > Set oFS = CreateObject("Scripting.FileSystemObject")
> > Set oFolder = oFS.GetFolder("C:\Somefolder\Programs\")
> > For Each oFolder In oFolder.SubFolders
> > WScript.Echo oFolder.name
> > If oFolder.name <> "FolderA" Then
> > End If
> > If oFolder.name <> "FolderB" Then
> > End If
> > If oFolder.name <> "FolderC" Then '
> >
> > Else filesys.DeleteFolder "c:\Somefolder\Programs\" &
> > oFolder.name
> > End If
> >
> > Next *
>
> Still looking for a solution to this.. c'mon coders!
>
>
>
> --
> Shadrach
> ------------------------------------------------------------------------
> Posted via http://www.codecomments.com
> ------------------------------------------------------------------------
>