Solved

Script to Search for and move specific files

Posted on 2010-11-11
11
669 Views
Last Modified: 2012-05-10
Hello All,

I am looking for a script to search a file server for specific files and then move them to an external drive. I have an excel spreadsheet of all the file names I am looking for but they are spread out over several directories on several servers.

I am ok with running the script individually on each server but I need a script that will take the file names in my spreadsheet and search the server for them. Once they are found they need to be moved to a specified location.

I need to do this for approximately 15,000 files - all of which I have the names of.

Any help would be greatly appreciated.

Thanks,
0
Comment
Question by:tabush
  • 5
  • 2
  • 2
  • +1
11 Comments
 
LVL 52

Expert Comment

by:Bill Prew
ID: 34117040
I suspect no matter how that is coded it is going to run for quite a bit of time, are you okay with that?

~bp
0
 
LVL 52

Expert Comment

by:Bill Prew
ID: 34117048
Would you be okay with first exporting the list of files from excel to a text file, and then letting the script read the text file?

~bp
0
 
LVL 52

Expert Comment

by:Bill Prew
ID: 34117158
Here's a first pass at a solution for you.  It reads the list of files from a text file, loads them into a dictionary for fast searching, and then processes all files in the tree rooted at the folder you specify.  Adjust the paths at the top to suit your needs.

Currently the script will just echo to the console the files it would copy so you can see if it works right.  If so, comment out the wscript.echo and uncomment the f.copy line below it.

~bp
' Define constants
Const ForReading = 1
 
' Define literals
strList = "C:\Temp\EE26609636.txt"
strSource = "C:\Temp"
strDest = "C:\Temp\EE26609636\"
 
' Set up objects needed
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set dicFiles = CreateObject("Scripting.Dictionary")
dicFiles.CompareMode = vbTextCompare
 
' Load dictionary entries from text file of file names
Set objList = objFSO.OpenTextFile(strList, ForReading)
Do Until objList.AtEndOfStream
   strLine = objList.Readline
   If Not dicFiles.Exists(strLine) Then
      dicFiles.Add strLine, ""
   End If
Loop
objList.Close
set objList = Nothing
 
' Start recursive tree scan looking for files to copy 
ScanFolder(objFSO.GetFolder(strSource))
 
Function ScanFolder(objFolder)
   ' Look at all files in this folder, copy if in dictionary of files to copy
   For Each f In objFolder.Files
     If dicFiles.Exists(f.Name) Then
       Wscript.Echo f.Path
       'f.Copy strDest
     End If
   Next
 
   ' Recursively process each subfolder in this folder
   For Each sf in objFolder.SubFolders
      ScanFolder(sf)
   Next
End Function
 
' Wrap up
set dicFiles = Nothing
set objFSO = Nothing

Open in new window

0
 
LVL 5

Expert Comment

by:Gitcho
ID: 34117955
uh - did you want this done in powershell, or vbScript? (above example is vbScript)

Export your spreadsheet to a CSV with all the files to search in one column with the heading "filename"

Run this script on each server ... it will take a while

#CSV file
$CSVfile = "c:\file_names.csv"
#Path to copy all discovered files to 
$destinationPath = "c:\newfolder"
#import list of short filenames ("spreadsheet.xls" ... NOT "c:\files\spreadsheet.xls")
$filesToSearch = Import-CSV $CSVfile
#create single-dimensional array 
$filesToSearch = $filesToSearch | % { $_.filename } 
#iterate through all files on the server
(gci c:\ -recurse | ? { $_.psIsContainer -eq 0 })  | % { 
    If ($filesToSearch -contains $_.name) { 
         move-item $_.FullName -destination $destinationPath;
    }
}

Open in new window

0
 
LVL 5

Expert Comment

by:Gitcho
ID: 34117960
ahh - I see ...  was posted in powershell forum as well - my mistake.
0
Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

 
LVL 2

Author Comment

by:tabush
ID: 34120603
bp,

Thanks for the script. I tested it and while it works if I specify a specific directory, when I specify the source as "C:\" (as this would be the source on the server that I would like to recursively search) I get an error:

Line: 30
Char: 4
Error: Permission Denied
Code: 800A0046

Now, I understand that error may be occuring as there may be files that are read-only. Is there a way to get around this so the script doesnt break if it hits a read only file?

Thanks
0
 
LVL 8

Expert Comment

by:TSGITDept
ID: 34121545
There are a host of file copy utilities out there as well.  Rich Copy might be worth a look.

RichCopy.pdf
0
 
LVL 8

Expert Comment

by:TSGITDept
ID: 34121575
Rich Copy is sort of a GUI based, souped up version of Robocopy.
0
 
LVL 52

Expert Comment

by:Bill Prew
ID: 34121882
==> Code: 800A0046

Seems like we should be able to trap that with "on error" or something and work around it, I'll see what I can do...

~bp
0
 
LVL 52

Accepted Solution

by:
Bill Prew earned 500 total points
ID: 34125612
This should fix the 800A0046 error.

' Define constants
Const ForReading = 1
 
' Define literals
strList = "C:\Temp\EE26609636.txt"
strSource = "C:\"
strDest = "C:\Temp\EE26609636\"
 
' Set up objects needed
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set dicFiles = CreateObject("Scripting.Dictionary")
dicFiles.CompareMode = vbTextCompare
 
' Load dictionary entries from text file of file names
Set objList = objFSO.OpenTextFile(strList, ForReading)
Do Until objList.AtEndOfStream
   strLine = objList.Readline
   If Not dicFiles.Exists(strLine) Then
      dicFiles.Add strLine, ""
   End If
Loop
objList.Close
set objList = Nothing
 
' Start recursive tree scan looking for files to copy 
ScanFolder(objFSO.GetFolder(strSource))
 
Function ScanFolder(objFolder)
   On Error Resume Next
   ' Look at all files in this folder, copy if in dictionary of files to copy
   For Each f In objFolder.Files
     If dicFiles.Exists(f.Name) Then
       Wscript.Echo f.Path
       'f.Copy strDest
     End If
   Next
 
   ' Recursively process each subfolder in this folder
   For Each sf in objFolder.SubFolders
      ScanFolder(sf)
   Next
   On Error Goto 0
End Function
 
' Wrap up
set dicFiles = Nothing
set objFSO = Nothing

Open in new window


~bp
0
 
LVL 2

Author Closing Comment

by:tabush
ID: 34155305
Great Work! The script runs as it should. I made a few changes but it looks good.

Thanks
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Windows Server Update Service (WSUS) is free for everyone, but it lacks of some desirable features like send an e-mail to the administrator with the status of all computers on the WSUS server. This article is based on my PowerShell script …
This script can help you clean up your user profile database by comparing profiles to Active Directory users in a particular OU, and removing the profiles that don't match.
This video Micro Tutorial explains how to clone a hard drive using a commercial software product for Windows systems called Casper from Future Systems Solutions (FSS). Cloning makes an exact, complete copy of one hard disk drive (HDD) onto another d…
Windows 8 comes with a dramatically different user interface known as Metro. Notably missing from the new interface is a Start button and Start Menu. Many users do not like it, much preferring the interface of earlier versions — Windows 7, Windows X…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now