quote:

(and have to hurry because
ebgreen seems to be looking!)[/code]

Huh?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ehvbs)

quote:



ORIGINAL: kracksmith
EDITED: ehvbs

When I mean by excluding I mean to exclude certain precious .png files within a certain directory. There can be more than 1 directory.
so you would exlude VenusVonMilo.png in c:\temp\dir1, but still delete c:\temp\dir2\VenusVonMilo.png
 
Yes I want to exclude the particular directory plus all its subfolders down. There can be more than 10 subdirectories.
Ok

Once the script find these particular directories to exclude I like it to continue doing it's job until it finish.
Ok

So by excluding a full path is ok right? Or easy to implement right?
Yes, but you have the full path for each file/folder you want to exclude
 
I will just stick to the exclusion by path for now.
Ok

So by using path I can specify by folder or file, right?
Folders and Files will be identified by full path.

(dicXFP.Add "c:\temp\delsel\dir11”,0)    ß by directory
Ok  - directory identified by path

(dicPRF.Add "c:\temp\delsel\dir1\dir11\VenusVonMilo.png”, 0)  ß by file
?? - file identified by path (and please use lowercase)
 
So if I want to adapt your script to my needs, I would type:
 
If dicEXT.Exists( LCase( oFS.GetExtensionName( oFile.Name ))) Then
Ok - we look in dicEXT if there is a key equal to the (lowercase) extension of the current file

            If  "dicXFP.Add "c:\temp\delsel\dir11”,0 Then
Very bad: adding should be done at the start of the script
Very bad: to look for precious file you'll have to check the dictionary you stored the files in
Very bad: you should checking the full path of the current file

                        If bVerbose Then WScript.Echo "Keeping prec” + oFile.Path + "”
            Else
                        WScript.Echo "* Deleting "” + oFile.Path + "”
            End If
            Else
 
And if I wanted to do the same but with a file then all I have to do is add:
dicPRF.Add "c:\temp\delsel\dir1\dir11\VenusVonMilo.png”, 0
Ok

Also I would need to add the Variables?
is this the correct syntax?

quote:



ORIGINAL: kracksmith
EDIT: ehvbs

What you have is a killer script. Much shorter than my original. Probably more efficient too.
Thanks

When I mean by excluding I mean to exclude certain precious .png files within a certain directory. There can be more than 1 directory.
so you would exlude VenusVonMilo.png in c:\temp\dir1, but still delete c:\temp\dir2\VenusVonMilo.png
yes, exclude files by single path only. if i have many files i would exclude it using multiple paths.
and if i want to exclude a folder it should exclude the folder and all subdirectories under it.
So by excluding a full path is ok right? Or easy to implement right?
Yes, but you have the full path for each file/folder you want to exclude
yes perfect.
Ok

I'm just doing a test run on my workstation before releasing it to the real servers.
Very good

doesn't seem to be deleting anything. it does run but not deleting. i don't see any rem statement before the delete statement.
The line
    oFS.DeleteFile( oFile.Path )
should be added after the script is tested rigorously.

and if there isn't any .dbk to be deleted as in my test run, should i need to worry about putting in a "on error resume next"?
Two answers:
  (1)    No, don't worry - the script won't try to delete a file that wasn't found in the oThisDir.Files collection before
  (2)    Yes - if you think its possible that someone else deletes the file after the script found it and before the
           script deletes it or that the file is locked/used or that there may be permission problems. Then do it this way

           On Error Resume Next
           oFS.DeleteFile( oFile.Path )
           If 0 <> Err.Number Then
               If bVerbose Then WScript.Echo "can't delete " + oFile.Path
           End If
           On Error GoTo 0

' Path to start directory (adapt)
Dim sSDir  : sSDir      = "C:\Documents and Settings\alex.BLA.000\Desktop\New Folder\"
  Dim sSDir  : sSDir      = "c:\documents and settings\alex.bla.000\desktop\new folder\"  ' lowercase!!!
  Dim dicXFP : Set dicXFP = CreateObject( "Scripting.Dictionary" )
Dim dicEXT : Set dicEXT = CreateObject( "Scripting.Dictionary" )
Dim dicPFP : Set dicPFP = CreateObject( "Scripting.Dictionary" )

' Yes I want to exclude the particular directory plus all its subfolders down.
' There can be more than 1 directory.
' Folder pathes to exclude (subdirs won't be processed; inhibit recursion)
' identified by Path (LCase); replace/add all the folders you want to exclude
dicXFP.Add sSDir + "C:\Documents and Settings\alex.BLA.000\Desktop\New Folder\Music", 0
All pathes have sSDir as prefix, so
  dicXFP.Add sSDir + "\music", 0

' I mean to exclude certain precious .png files within a certain directory
' Precious files to keep
' identified by Path (LCase); replace/add all your precious files
dicPFP.Add sSDir + "dir1" + "C:\Documents and Settings\alex.BLA.000\Desktop\New Folder\The Ventures\01 Walk Don't Run.wma", 0
Should read:
  dicPFP.Add sSDir + "\the ventures\01 walk don't run.wma", 0
  dicPFP.Add sSDir + "\the ventures\precious2.wma", 0
  dicPFP.Add sSDir + "\the ventures\precious1.dbk", 0
  dicPFP.Add sSDir + "\otherdirbelow_new_folder\precious175.wma", 0

  Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" )
delSelFiles3 oFS, sSDir, dicXFP, dicEXT, dicPFP, true

Sub delSelFiles3( oFS, sThisDir, dicXFP, dicEXT, dicPFP, bVerbose )
Dim oThisDir : Set oThisDir = oFS.GetFolder( sThisDir )

If bVerbose Then WScript.Echo "Processing '" + sThisDir + "'"
' if we reach a directory it's files and subdirs should be processed
Dim oFile
For Each oFile In oThisDir.Files
     If dicEXT.Exists( LCase( oFS.GetExtensionName( oFile.Name ) ) ) Then
        WScript.Echo " Found     '" + oFile.Path + "'"
        If dicPFP.Exists( LCase( oFile.Path ) ) Then
           WScript.Echo "* Keeping  '" + oFile.Path + "'"
        Else
           WScript.Echo "* Deleting '" + oFile.Path + "'"
             add delete code here
        End If
     Else
        If bVerbose Then WScript.Echo " Keeping   '" + oFile.Path + "'"
     End If
Next
Dim oSubDir
For Each oSubDir In oThisDir.SubFolders
     If dicXFP.Exists( LCase( oSubDir.Path ) ) Then
        If bVerbose Then WScript.Echo " Skipping  '" + oSubDir.Path + "'"
     Else
        delSelFiles3 oFS, oSubDir.Path, dicXFP, dicEXT, dicPFP, bVerbose
     End If
Next
End Sub