Copies files from list of files into a folder.
Uses list of files with separator that can be called, Destination folder should already be existed.
Used in my project 7Bricks
Sub CopyFiles(List_of_Files, DestFolder, Optional Sepa = "||")
' Copy Files from List_of_Files string into DestFolder
' folder already existed
'
For Each SetImg In Split(List_of_Files, Sepa)
If Trim(SetImg) = "" Then GoTo NextSet
DoEvents
FileCopy SetImg, FixPath(DestFolder) & GetSon(SetImg)
DoEvents
NextSet:
Next
End Sub
' Copy Files from List_of_Files string into DestFolder
' folder already existed
'
For Each SetImg In Split(List_of_Files, Sepa)
If Trim(SetImg) = "" Then GoTo NextSet
DoEvents
FileCopy SetImg, FixPath(DestFolder) & GetSon(SetImg)
DoEvents
NextSet:
Next
End Sub
List_of_Files, DestFolder, Optional Sepa = "||"
Views 83
Downloads 34
CodeID
DB ID
