How can I recursively move *.jpg files ?

[ronqa]

How can I recursively move *.jpg files from a memory card to a specified directory?

I have searched the internet for days and not found a way to do this.

Thanks,

[kadghar]

How can I recursively move *.jpg files from a memory card to a specified directory?

I have searched the internet for days and not found a way to do this.

Thanks,

well, it depends of the version of VB you're using, but in most cases, something like this will help to move the file:

My.Computer.FileSystem.MoveFile("D:\mypic.jpg", "C:\path\mypic.jpg")

if you want to overwrite the file without asking you, you can turn off the dialogs, its an optional parameter of MoveFile.
I think using a FOR or a DO, and some time functions you can set when the files will be moved.

Remember that using smart file names can be helpful, e.g.

dim i as long
for i = 1 to 30
    My.Computer.FileSystem.MoveFile("D:\mypic" & i & ".jpg", "C:\path\mypic" & i & ".jpg")
next
 

this way you can move mypic1, mypic2, mypic3 ... mypic30 quite easy.
otherwise, using DIR or FOR EACH might help you moving a complete directory.

HTH

[WinblowsME]

VBA.

Sub Test()
   Dim source_path As String, target_path As String
 
   source_path = "C:\Documents and Settings\WinblowsME\Desktop\Images"
   target_path = "C:\Documents and Settings\WinblowsME\Desktop\Backup\"
 
   Call Copy_Files(source_path, target_path, "*.jpg")
   Call Copy_Files(source_path, target_path, "*.gif")
   Call Copy_Files(source_path, target_path, "*.bmp")
End Sub
 
Private Sub Copy_Files(source_path As String, target_path As String, file_type As String)
   Dim regex As Object, file_name As String
 
   Set regex = CreateObject("VBScript.RegExp")
 
   regex.Pattern = "\\*$"
   source_path = regex.Replace(source_path, "\")
   target_path = regex.Replace(target_path, "\")
 
   file_name = Dir(source_path & file_type, vbDirectory)
 
   Do While file_name <> ""
      Call FileCopy(source_path & file_name, target_path & file_name)
 
      file_name = Dir
   Loop
End Sub
 

MS-DOS

copy "source_dir\*.jpg" "target_dir"

[Killer42]

By "recursively", do you mean that you want to work your way down through the directory tree and copy all the images you find in there?

[ronqa]

Yes,

I want to gather the .jpg buried about 2 directories down.

Search all the subdirectories.

Thanks,

[Killer42]

I've got some code to do a recursive scan of subdirectories. I'll try to dig it out when I can. Might not be until tonight, though (it's about 10:30 now, Sydney time).

[ronqa]

Thanks, I'll be waiting.

[WinblowsME]

Here's a simple solution with XCOPY.

http://www.tech-recipes.com/rx/2682/...e_exclude_flag

[ronqa]

How would I use this in VB.net ?

[Killer42]

Forgot to dig out my code. But the basic logic is quite simple. It's a recursive routine to handle each folder. Something along these lines. I recommend using FileSystemObject, but exactly how you access the files and folders is your choice, really.

Sub ProcessFolder(ByVal Fld As String)
  For each file F in folder Fld
    ProcessFile F
  Next
  For each subfolder S in folder Fld
    ProcessFolder S
  Next
End Sub
 
 
Sub ProcessFile(ByVal FileName As String)
  Do whatever it is you want with file FileName
End Sub

Note I've just indicated we're passing the folder and file names here, as strings. But you could pass actual Folder or File objects.

[ronqa]

Thanks,

I'll try it out.