Daily Archives: November 23, 2008

Standard

Posted by

Posted on

November 23, 2008

Posted under

Code, Programming, VB.net

Comments

3 Comments

Recursive File Copier Function

Have you ever had the need for a function to copy every file in a directory… wait no longer… here is a recursive way to copy files:

Sub CopySelectedFiles(ByVal strSourceDirectory As String, ByVal strDestDirectory As String, ByVal strSearchString As String)



  Dim dirInfo As New DirectoryInfo(strSourceDirectory)



  Dim fsInfo As FileSystemInfo





  For Each fsInfo In dirInfo.GetFileSystemInfos



    Dim strDestFileName As String = Path.Combine(strDestDirectory, fsInfo.Name)





    If TypeOf fsInfo Is FileInfo And fsInfo.Name.IndexOfAny(strSearchString) > -1 Then



      File.Copy(fsInfo.FullName, strDestFileName, True) ' 'This will overwrite files that already exist



    Else



      CopySelectedFiles(fsInfo.FullName, strDestFileName, strSearchString) 'we have found a subdirectory



    End If



  Next



End Sub






					

	


			
				



	
		


					Standard
		
		

			
Posted by

			
		

		

			
Posted on

			November 23, 2008
		

		

			
Posted under

			 Code, Programming, VB.net
		


				

			
Comments

			Leave a comment
		

			

	
	
Recursive File Search Code

		

		
Below is the first function I’m publishing… It uses my favorite programing feature… recursion. Recursion is a tricky thing to do right. So many loops, so many variables, etc… This function searches for a file and all sub-directories of your root/starter directory.


VB.net Source Code:


Public Function SearchForFile(ByVal strSourceDirectory As String, ByVal strSearchString As String) As String



  On Error Resume Next



  Dim ret As String = ""



  Dim dirInfo As New DirectoryInfo(strSourceDirectory)



  Dim fsInfo As FileSystemInfo





  For Each fsInfo In dirInfo.GetFileSystemInfos



    If TypeOf fsInfo Is FileInfo And _



      fsInfo.Name.IndexOfAny(strSearchString) > -1 Then



      'FOUND IT...



      If fsInfo.Name = strSearchString Then



        'return directory where file is located...



        ret = strSourceDirectory



        Exit For



      End If



    Else



      'recurrsively search this sub-folder...



      ret = SearchForFile(fsInfo.FullName, strSearchString)



      If ret <> "" Then Exit For



    End If



  Next





  If ret <> "" Then If Right(ret, 1) <> "\" Then ret = ret & "\"



  SearchForFile = ret



End Function




					

	


			
				



	
		


					Standard
		
		

			
Posted by

			
		

		

			
Posted on

			November 23, 2008
		

		

			
Posted under

			 Programming
		


				

			
Comments

			Leave a comment
		

			

	
	
Programming and Code

		

		
My Born-to-Code logo is not just an image on my blog… it is also a tattoo on my left arm. I am very motivated about programming and believe firmly in the notion that a computer should do my work for me. Therefore I’ve decided to share my work with the world… Please feel free to use this code any way you wish… Use it to create programs to give away, to sell, etc… don’t care. Have fun with it. I only ask that you make mention of me somewhere.. about box, read me file.. anything…


tattoo