Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search for and then copy a single file

Status
Not open for further replies.
GregCSA

GregCSA

IS-IT--Management
Nov 30, 2011
4
Hi All

I need a script that can search for a vox file on a drive that contains over 5 million vox files and once found, copy it to a new folder location

Any assistance is much appreciated
 
Sort by date Sort by votes
Hi ! Try this Code : SearchFile+Backup_By_Extension.vbs and modifiy it to obtain your purpose,i mean if you want to search by name or by extension or both.
It is a Vbscript to search for files by their extensions and organize them by copying in different folders with names on their extensions chosen from the beginning of the research, and generate search results in a table in HTML, citing information on these files such that their paths, creation date, modification date, size and attributes;and display thumbnails of diffrent types of images in the search, Eg if the search includes image files will be displayed as thumbnails.
 
Upvote 0 Downvote
also, the cmd 'dir' does a good job

Code: 
dir myFilen*.vox /s > c:\log.txt

The results are written to c:\log.txt

-Geates

"I hope I can chill and see the change - stop the bleed inside and feel again. Cut the chain of lies you've been feeding my veins; I've got nothing to say to you!"
-Infected Mushroom

"I do not offer answers, only considerations."
- Geates's Disclaimer
 
Upvote 0 Downvote
Thanks for that, I tried that script but it is alittle complex for my needs.

All I really want is:

An input box to enter the voxfile name
Once 'Ok' is clicked, it then searches for that file on all disks
If it finds it, then prompts you to copy it to a specified folder

Thanks
 
Upvote 0 Downvote
Hi !
I modified the last script to become a search by name !
Code: 
'*********************************************************************
'SearchFile+Backup_By_Name.vbs © Hackoo Crackoo Le 01/12/2011 
'*********************************************************************
Dim fso,sho,OutFile, sDrv, sFName, sReport, sFile, sTitle ,strHTML
sTitle = "Recherche des Fichiers Par leurs Extensions © Hackoo Crackoo"
Set fso = CreateObject("Scripting.FileSystemObject")
Set sho = CreateObject("Wscript.Shell")
basefolder=sho.SpecialFolders("desktop")' Get your Desktop Folder
Set bf = fso.GetFolder(basefolder)
OutFile = "Search-Result.html"
If fso.FileExists(OutFile) Then fso.DeleteFile(OutFile)

sTitle = "Search and Backup Script for VOX Files By Hackoo Crackoo" 
'FolderType = "vox,exe,xls,doc,docx,bat,txt"
Set sReport = fso.OpenTextFile(OutFile, 8, True)
sDrv = InputBox("Enter the drive letter in the search ( Letter only )"&vbcr&_
 "OR " & vbcrlf & " Enter * to search all local drive letters ", sTitle)
If sDrv = "" Then WScript.Quit
'sExt = InputBox ("Enter the extension of the file to search example VOX, JPG or GIF or DOC or XLS etc ....", sTitle)
sFName = InputBox ("Enter the name of the file to search : ",sTitle,FolderType) 
Tab = split(sFname,",") 
For i = Lbound(Tab) to Ubound(Tab)
CreateFolder(Tab(i)) 
MsgBox "The Folder named " & qq(Ucase(Tab(i))) & " Just Created",64,sTitle 

If sFName = "" Then WScript.Quit

strHTML="<html><body text=white bgcolor=#1234568><style type='text/css'>"&_
"a:link {color: #F19105;}"&_
"a:visited {color: #F19105;}"&_
"a:active {color: #F19105;}"&_
"a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_
"</style>"

strHTML=strHTML &"<center><h2><B> <font color=Red>[COUNT] </font>Files Found with name is : <font color=red>"""& sFName &""" </font> sur le lecteur <font color=red>"& UCase(sDrv) & ":</B></font></h2></center>"&_
"<center><table border='3' cellpadding='1' style='border-collapse: collapse; font size:11pt' bordercolor='#CCCCCC' width='100%' id='Table1'></center>" & _
"<td><center><strong>Chemin</strong></center></td>"&_
"<td><center><strong>Date de Création</strong></center></td>"& _
"<td><center><strong>Date de Modification</strong></center></td>"&_
"<td><center><strong>Taille</strong></center></td>"&_
"<td><center><strong>Attributs</strong></center></td>"

If sDrv = "*" Then
Dim  d,dc,racine
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set dc = fso.Drives
	For Each d in dc
		racine = d.Driveletter & ":"
		If d.IsReady Then
		GetResults racine , Tab(i) 
		End If	
	Next
Else
GetResults sDrv & ":", Tab(i)
End If
Next
sReport.WriteLine strHTML &"</table>"
Signature = "<br><center><img src='"&Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(110)&Chr(115)&Chr(109)&_
Chr(48)&Chr(53)&Chr(46)&Chr(99)&Chr(97)&Chr(115)&Chr(105)&_
Chr(109)&Chr(97)&Chr(103)&Chr(101)&Chr(115)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(105)&_
Chr(109)&Chr(103)&Chr(47)&Chr(50)&Chr(48)&Chr(49)&Chr(49)&Chr(47)&Chr(48)&Chr(55)&Chr(47)&Chr(50)&_
Chr(51)&Chr(47)&Chr(47)&Chr(49)&Chr(49)&Chr(48)&Chr(55)&_
Chr(50)&Chr(51)&Chr(48)&Chr(55)&Chr(52)&Chr(49)&_
Chr(52)&Chr(48)&Chr(49)&Chr(51)&Chr(49)&Chr(49)&Chr(48)&_
Chr(52)&Chr(56)&Chr(53)&Chr(48)&Chr(54)&Chr(52)&Chr(49)&_
Chr(57)&Chr(46)&Chr(103)&Chr(105)&Chr(102)&"' alt='"&Chr(104)&Chr(97)&_
Chr(99)&Chr(107)&Chr(111)&Chr(111)&Chr(102)&Chr(114)&Chr(64)&_
Chr(121)&Chr(97)&Chr(104)&Chr(111)&Chr(111)&Chr(46)&Chr(102)&Chr(114)&"'</img></center></body></html>"
sReport.WriteLine Signature
Wscript.CreateObject("WScript.Shell").Run OutFile

Sub GetResults(drv, fname)  
On Error Resume Next
Dim sWQL, oFile, sAttrib,sFilePath,size
ext = Array("png","jpg","jpeg","gif","bmp","psd","tif")
sWQL = "select * from cim_datafile where Drive='" & _
drv & "' AND FileName = '" & fname & "'"
Results = 0
For Each oFile In GetObject("winmgmts:").execquery(sWQL)
Results = Results + 1
sFile = oFile.Name
Set f = fso.GetFile(sFile)
  
SizeKo = Round(FormatNumber(f.Size)/(1024),0) & " Ko" 'Taille en Ko 
SizeMo = Round(FormatNumber(f.Size)/(1048576),0) & " Mo" 'Taille en Mo 
SizeGo = Round(FormatNumber(f.Size)/(1073741824),0) & " Go" 'Taille en Go 
 
If f.size < 1024 Then 
Size = f.size & " Octets"
elseif f.size < 1048576 Then 
Size = SizeKo
elseif f.size < 1073741824 Then 
Size = SizeMo
else
Size = SizeGo
end if
sFilePath = f.Path
If oFile.Archive Then sAttrib = "Archive "
If oFile.Compressed Then sAttrib = sAttrib & " Compressé "
If oFile.Encrypted Then sAttrib = sAttrib & " Crypté "
If oFile.Hidden Then sAttrib = sAttrib & " Caché "
If oFile.System Then sAttrib = sAttrib & " Système "
If oFile.Readable Then sAttrib = sAttrib & " Lecture "
If oFile.Writeable Then sAttrib = sAttrib & " Ecriture "

If UCase(ext(0)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(1)) = UCase(fso.GetExtensionName(oFile.Name))or UCase(ext(2)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(3)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(4)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(5)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(6)) = UCase(fso.GetExtensionName(oFile.Name)) Then

ImgFileName = oFile.Name
strHTML=strHTML & "<tr><td><center><a target=_Blank href='"& sFilePath &"'>"&ImgFileName&"<br><img src='"& sFilePath &"' border=1 height=50 width=80></center></td><td><center>" & f.DateCreated & "</center></td>" & _
"<td><center>" & f.DateLastModified & "</center></td><td><center>"& Size & "</center></td>"&_
"<td><center>" & sAttrib & "</center></td></tr>"
else
strHTML=strHTML & "<tr><td><a target=_Blank href='" & sFilePath & "'>" & _
sFilePath & "</a></td><td><center>" & f.DateCreated & "</center></td>" & _
"<td><center>" & f.DateLastModified & "</center></td><td><center>"& Size & "</center></td>"&_
"<td><center>" & sAttrib & "</center></td></tr>"
end if
CopyFile sFile,Tab(i)
Next
strHTML = Replace(strHTML, "[COUNT]", Results)
End Sub 

sub CreateFolder(name)
Set fso = CreateObject("Scripting.FileSystemObject")
Set sho = CreateObject("Wscript.Shell")
basefolder=sho.SpecialFolders("desktop")' Get your Desktop Folder
Set bf = fso.GetFolder(basefolder)
If Not FSO.FolderExists(bf & "\" & name) Then
bf.subFolders.Add(name)
else : exit sub
end if
end sub

Function CopyFile(sFile,name)
Dim  FSO
 Set FSO = CreateObject("Scripting.FileSystemObject")
 If FSO.FolderExists(bf & "\" & name) Then
   'MsgBox "Copying : " & Chr(34) & FSO.GetFileName(sFile) & Chr(34) & " to " & bf & "\" & name,64,"Copying....."
   FSO.GetFile(sFile).Copy bf & "\" & name & "\" & FSO.GetFileName(sFile),True
  End if
End Function

Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function
 
Upvote 0 Downvote
You sir are a scholar and a gentleman

Works a treat
 
Upvote 0 Downvote
But now may I challenge your VBS skills (although I'm sure you'll be able to quite easily)

Is there a way to first enter a server name before specifying the drive? (with impersonation obviously)so that I can run this script from my laptop?

I have vox files spread across 4 servers on around 10TB in total
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

bdwilcox
  • Locked
  • Question
Trying to adapt VBScript to search if machine is in an AD group 6
Replies
8
Views
999
SoftwareRT
SoftwareRT
Rick_Stanich
  • Locked
  • Question
Save xls file to cvs file 1
Replies
3
Views
274
Rick_Stanich
Rick_Stanich
asel
  • Locked
  • Question
Copy cell data from excel and paste into portable software application
Replies
0
Views
165
asel
asel
Don Child
  • Locked
  • Question
JScript to search for specific outlook emails, and download attachments 2
Replies
8
Views
544
Eric J
Eric J
S
  • Locked
  • Question
Need to submit page when clicking a checkbox
Replies
0
Views
219
shbr5413
S

Part and Inventory Search

Sponsor

Back
Top