copy all files form one folder to aother?

[Darkforce_the_ilogic_guy]

I need to copy all files form 

"C:\K-Tools\TempReviewPDF\", 

 to

"H:\2e. Tegnestue\10. Drawing Review" & "\" & iProperties.Value("Project", "Part Number")

if the fil of the same name exists then go to next file or overrride 

[Michael.Navara]

What kind of files you want to copy? It is just a PDF files or it is a files with references (like Inventor parts and assemblies)?

[Darkforce_the_ilogic_guy · Accepted solution]

well it was pdf in this case , but I fix it with this code

	Try
	'	oLocalPath = "C:\K-Tools\TempReviewPDF"
	Dim FileList As String() = System.IO.Directory.GetFiles("C:\K-Tools\TempReviewPDF" , "*.*")
	'MsgBox(FileList)
	For Each f As String In FileList
		'MsgBox("Want to delete " & f)
		'System.IO.File.Copy(f,"H:\2e. Tegnestue\10. Drawing Review" & "\" & iProperties.Value("Project", "Part Number")+"\"+ Right(f,Len(f)-25))
		System.IO.File.Delete("H:\2e. Tegnestue\10. Drawing Review" & "\" & iProperties.Value("Project", "Part Number")+"\"+ Right(f,Len(f)-25))		
		System.IO.File.Copy(f,"H:\2e. Tegnestue\10. Drawing Review" & "\" & iProperties.Value("Project", "Part Number")+"\"+ Right(f,Len(f)-25))
	'Logger.Info(Right(f,Len(f)-25))
	Logger.Info(" Form " +f + " To " +"H:\2e. Tegnestue\10. Drawing Review" & "\" & iProperties.Value("Project", "Part Number")+"\"+ Right(f,Len(f)-25))

	Next
					
Catch' dirNotFound As DirectoryNotFoundException
	'MsgBox(dirNotFound.Message)
	
	Logger.Info("Fail to copy", filename)

End Try	

[Darkforce_the_ilogic_guy]

well it was pdf in this case , but I fix it with this code

	Try
	'	oLocalPath = "C:\K-Tools\TempReviewPDF"
	Dim FileList As String() = System.IO.Directory.GetFiles("C:\K-Tools\TempReviewPDF" , "*.*")
	'MsgBox(FileList)
	For Each f As String In FileList
		'MsgBox("Want to delete " & f)
		'System.IO.File.Copy(f,"H:\2e. Tegnestue\10. Drawing Review" & "\" & iProperties.Value("Project", "Part Number")+"\"+ Right(f,Len(f)-25))
		System.IO.File.Delete("H:\2e. Tegnestue\10. Drawing Review" & "\" & iProperties.Value("Project", "Part Number")+"\"+ Right(f,Len(f)-25))		
		System.IO.File.Copy(f,"H:\2e. Tegnestue\10. Drawing Review" & "\" & iProperties.Value("Project", "Part Number")+"\"+ Right(f,Len(f)-25))
	'Logger.Info(Right(f,Len(f)-25))
	Logger.Info(" Form " +f + " To " +"H:\2e. Tegnestue\10. Drawing Review" & "\" & iProperties.Value("Project", "Part Number")+"\"+ Right(f,Len(f)-25))

	Next
					
Catch' dirNotFound As DirectoryNotFoundException
	'MsgBox(dirNotFound.Message)
	
	Logger.Info("Fail to copy", filename)

End Try	

[Michael.Navara]

This code can be simplified and can work with any input and output directories

Dim sourceDir As String = "C:\Temp\Source\Files"
Dim targetDir As String = "C:\Temp\Target\Files"

Dim partNumber As String = iProperties.Value("Project", "Part Number")
Dim fullTargetDir = System.IO.Path.Combine(targetDir, partNumber)
System.IO.Directory.CreateDirectory(fullTargetDir)

Dim sourceFiles = System.IO.Directory.GetFiles(sourceDir, "*.*")

For Each sourceFile As String In sourceFiles
	Dim fileName = System.IO.Path.GetFileName(sourceFile)
	Dim targetFullFileName = System.IO.Path.Combine(fullTargetDir, fileName)
	System.IO.File.Copy(sourceFile, targetFullFileName, True)
Next