How To Copy All Files From One Folder To Another Based On A List of Unique Identification Number (UIN) listing in Excel ?

kychong79 · Nov 22nd 2020

MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question

Hi All,

crossposted: https://www.mrexcel.com/board/…ber-uin-in-excel.1151730/

I have multiple files with different national ID numbers under the source folder, most of the multiple files are named under the same national ID number with additional descriptive text example s12345678B_forms, s12345678B_resume_work permit, licence_s12345678B. Anyone knows the code to copy all the files associate with the national id numbers? I would appreciate any kind souls that would be able to help me with the code on this.

Code

Option Explicit
Dim varParametar, varLocation, varLocation2 As String
Dim varNLoop As Long
Dim varFile, varArray As Variant
Dim varI As Integer
Dim varFSO, varOFile, varOFolder, varOFiles As Object
Sub CopyByID()
varParametar = Application.InputBox _
("Insert file parameter that you are want to be copied to the new location.")
MsgBox ("Select location where you want to move specific files.")
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
varLocation2 = .SelectedItems(1)
Else
MsgBox ("Insert final destination folder.")
Exit Sub
End If
End With
MsgBox ("Select location from which you want to get specific files.")
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
varLocation = .SelectedItems(1)
varFile = listfiles(varLocation & "\")
For varNLoop = 1 To varI - 1
Dim varIsParametar
varIsParametar = InStr(1, varArray(varNLoop), varParametar)
If varIsParametar > 0 Then
varFSO.CopyFile varLocation & "\" & varArray(varNLoop), varLocation2 & "\"
End If
Next
End If
End With
End Sub
Function listfiles(ByVal sPath As String)
Set varFSO = VBA.CreateObject("Scripting.FileSystemObject")
Set varOFolder = varFSO.GetFolder(sPath)
Set varOFiles = varOFolder.Files
If varOFiles.Count = 0 Then Exit Function
ReDim varArray(1 To varOFiles.Count)
varI = 1
For Each varOFile In varOFiles
varArray(varI) = varOFile.Name
varI = varI + 1
Next
End Function

Display More

**alansidman** · Nov 22nd 2020

Your post does not comply with our Forum RULES. Do not cross-post your question on multiple forums without telling us about your threads on other forums.

Post a link to any other forums where you have asked the same question.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Go to https://www.excelguru.ca/content.php?184 to understand why we ask you to do this.

I have added the crosspost reference for you today. Please comply with this and all our rules in the future

Share