files auto move with same name of folder

[shariq]

hello expert i need your help i have a thousand of file with diffrent extention like pdf jpg emails i want to a programe with auto move file in a folder for example .

my source folder
c:\users\employee.records\desktop\shariq
my destination folder
D:employee.records\desktop\back up by immad

file name
03496
11145
07896
00114
00095
with same name of file folder name like this
folder
03496
11145
07896
00114
00095

i want a programe file auto move in a same name of folder .

 

[swapnilk]

Try this code:

Sub CopyFiles()

'Declare variables
Dim FSO As Object
Dim SourceFolder As Object
Dim DestinationFolder As Object
Dim File As Object

'Set the source and destination folders
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder("c:\users\employee.records\desktop\shariq")
Set DestinationFolder = FSO.GetFolder("D:\employee.records\desktop\back up by immad")

'Loop through all the files in the source folder
For Each File In SourceFolder.Files
    'Extract the file name without the extension
    Dim FileNameWithoutExtension As String
    FileNameWithoutExtension = FSO.GetBaseName(File.Name)

    'If a folder with the same name as the file doesn't exist in the destination folder, create it
    If Not FSO.FolderExists(DestinationFolder & "\" & FileNameWithoutExtension) Then
        Set DestinationSubFolder = FSO.CreateFolder(DestinationFolder & "\" & FileNameWithoutExtension)
    Else
        'If the folder already exists, set it as the destination folder
        Set DestinationSubFolder = FSO.GetFolder(DestinationFolder & "\" & FileNameWithoutExtension)
    End If
    'Copy the file to the destination folder
    File.Copy DestinationSubFolder & "\" & File.Name
Next

End Sub

 

[shariq]

hello swapnilk script working fine but i have a some problm please solve it i dnt not want if the folder doest exist it create i have already folder created not need to recreat and some other issue file name are like this .
03456 gondal associate
09477 massive
and folder name are like this
03456 john algo
09477 albert michel
i want just read 5 digit code not full name if the 5 digit code are match then move file into the folder hope u understand please help again.