Vista - Moving files from one directory to another based on the file namecontains specified string by using vbscript

Hi,

I am having different kind of files need to move from one drive to
another based on the file name contains specified string by using
vbscript. For example, i need to move the file that the filename
contains string "mylog". Please help me to write vbscript to do this
job.

Thanks,
Sarvesh

Il giorno Fri, 23 Jan 2009 06:29:18 -0800 (PST), Sarvesh <sarveswara.p@xxxxxx> ha
scritto:
This asks dos to write a file with the pathnames of all the files you are looking for
(maybe).

drive="c:\"
cmd = "dir "& trim(drive) & "*mylog* /s/b "
tmp = "c:\data\pathnames.txt"
Set WshShell = CreateObject("WScript.Shell")
WSHShell.Run "%comspec% /c " & cmd & " >" & tmp, 0, True


--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--

On Jan 26, 3:07*am, no...@xxxxxx (Reventlov) wrote:Hi,

The above mentioned code is not moving any files. It is just creating
pathnames.txt file. I need to move the files that those filenames
contains string "mylog".

Please help me to get the appropriate code.

Thanks in Advance.

Regards,
Sarvesh

"Sarvesh" <sarveswara.p@xxxxxx> wrote in message
news:b6d16742-0962-4466-ab65-755bb1f45b48@xxxxxxYou need to think about your requirements in more detail and post the
following information:
- Where are your files kept? In a single folder? In a directory tree?
- Where do you want to move them to? To the root of another partition? To a
folder on that partition? If so, what name? Do you wish to rebuild the
source directory tree on the target partition?
- What should happen if a file of the same name already exists on the target
partition?
- Can you show us the (partial) script solution you have developed so far?

On Jan 29, 8:53*pm, "Pegasus \(MVP\)" <I....@xxxxxx> wrote:Hi,

I am having the below code to move the files from one drive(c to
another(d.

Option Explicit

Dim oFS, oFile, sFile

Set oFS = WScript.CreateObject("Scripting.FileSystemObject")

Const sSourceFdr = "C:\test1\"
Const sDestFdr = "D:\test2\"
Const nDays = 10

For Each oFile In oFS.GetFolder(sSourceFdr).Files
On Error Resume Next
If DateDiff("d", oFile.DateLastModified, Now) > nDays Then
oFS.MoveFile oFile.Path, sDestFdr
End If
On Error Goto 0
Next
Set oFS = Nothing
WScript.Quit

I need cut and paste the files those filename's contains "mylog" .

Thanks,
Sarvesh

"Sarvesh" <sarveswara.p@xxxxxx> wrote in message
news:f11127d0-3ab3-431a-b01c-caf3e270b89f@xxxxxx
On Jan 29, 8:53 pm, "Pegasus \(MVP\)" <I....@xxxxxx> wrote:Hi,

I am having the below code to move the files from one drive(c to
another(d.

Option Explicit

Dim oFS, oFile, sFile

Set oFS = WScript.CreateObject("Scripting.FileSystemObject")

Const sSourceFdr = "C:\test1\"
Const sDestFdr = "D:\test2\"
Const nDays = 10

For Each oFile In oFS.GetFolder(sSourceFdr).Files
On Error Resume Next
If DateDiff("d", oFile.DateLastModified, Now) > nDays Then
oFS.MoveFile oFile.Path, sDestFdr
End If
On Error Goto 0
Next
Set oFS = Nothing
WScript.Quit

I need cut and paste the files those filename's contains "mylog" .

Thanks,
Sarvesh

==================

You can introduce an overall "if" condition like so:
if instr(1, oFile.Name, "mylog", 1) > 0 then
{do your file move}
end if

Hi Sarvesh,

Try the below script...

Dim sOriginFolder, sDestinationFolder, sFile, oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
sOriginFolder = "D:\Documents\P2P Dev\BoA_H2H\XML\"
sDestinationFolder = "D:\Documents\P2P Dev\BoA_H2H\XML\TrasnferXML\"
For Each sFile In oFSO.GetFolder(sOriginFolder).Files
If instr(1, sFile.Name, ".xml", 1) > 0 then
oFSO.MoveFile sFile, sDestinationFolder
End If

Next


I am pretty sure this will work for you.

Thanks
Rahul

"Pegasus (MVP)" wrote:

Hi Sarvesh,

Try this....

Dim sOriginFolder, sDestinationFolder, sFile, oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
sOriginFolder = "D:\Documents\P2P Dev\BoA_H2H\XML\"
sDestinationFolder = "D:\Documents\P2P Dev\BoA_H2H\XML\TrasnferXML\"
For Each sFile In oFSO.GetFolder(sOriginFolder).Files
If instr(1, sFile.Name, ".xml", 1) > 0 then
oFSO.MoveFile sFile, sDestinationFolder
End If

Next


I am pretty sure it will work for you.

Thanks
Rahul

"Sarvesh" wrote: