search for files based on prefix and moves to specific folder

is there any help?

Hello,

the source directory contains only .pdf & .xlsx files or may contain other files types ?

Give some examples with accurate & complete filenames …

Hi Marc L,
just PDF & XLSX

Give some examples with accurate & complete filenames …

I gave you in OP
the XLSX : Bridgestone Sales Report 04 APR. 2022,Bridgestone Sales Report 05 Mar. 2022
the PDF: MN-2022-00010 , MN-2022-00011

You forgot the extension : with or without a space between the name and the extension ?

The Excel workbooks have a date reference within their filenames but not the pdf files so no month subfolder into the destination ?

You forgot the extension : with or without a space between the name and the extension ?

there is no space between the name and the extension

so no month subfolder into the destination ?

actually I wish create month subfolder automatically instead of create manually and moves the files if you can do that will be great.

I could but you must be accurate in order to avoid some disaster …

In your source directory you gave some files examples for March like for April :
so the VBA procedure must process each pdf and each xlsx files or only some specific ones according to the current month ?
For example in April only the *APR. XXXX.xlsx file should be moved but not the March file
or both must be moved to their relative destination directory ?

In case a file to be moved already exists in the destination directory :
the file in the destination directory can be deleted / overwritten or the VBA procedure must be conservative doing nothing ?

so the VBA procedure must process each pdf and each xlsx files or only some specific ones according to the current month ?

any file contains prefix name as in above whether xlsx or pdf should move them both into subfolder month
the file MAR . XXXX.xlsx, xxxx.pdf should move to MAR subfolder, the file APR. XXXX.xlsx, XXXX.pdf should move to APRIL subfolder

In case a file to be moved already exists in the destination directory :

should be overwritten

Ok only for the Excel workbooks but not for the pdf files as there is no month reference within their names
or you forgot to well elaborate something …

or you forgot to well elaborate something …

actually I don't forgot it , but need your advice how could avoid this problem , can depends on created or modified date? , any suggestion you have ?

so the modified date should be the reference ?

it's ok

so what could be such 'prefix' on your side ?

I mean starting the files names for XLSX Bridgestone Sales Report ,as to PDF MN

Well my bad so the prefix MN-*.pdf and Briggestone Sales Report *.xlsx must be harcoded within the VBA procedure
in order any other pdf / xlsx files can't be moved !

must be harcoded within the VBA procedure

how? I don't understand this.

You want a VBA procedure specific to move only the pdf files starting with 'MN-' and
only the Excel workbooks starting with 'Briggestone Sales Report' so both hardcoded, not variable …

if you see this is very complicated to achieve that , is there any altenative?

No it was just a need to confirm what you are expecting for ?

Another point : as your profile does not indicate your platform I hope it is only for Windows ?

Originally Posted by abdo meghari

ok I will update it

I can help only if for Windows, just confirm …

He has not told you that this is impossible, complicated or anything of that sort.

it's up to him if he want to answer me or not

solution cannot be offered. Please address ALL of Marc L's queries

I gave him last detials in post#12 I no know if he needs more .

Don't be so rude

sorry

You have not answered the question about platform: is this for Windows or Mac?

windows not Mac and i don't find choice in edited profile to updating

I thought there is different option to updating . thank for this

For starters a VBA demonstration to paste to the top of a module
for Excel 2010 & upper Windows versions only whatever 32 or 64 bits (for previous Excel versions just remove PtrSafe) :

PHP Code: 

Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath$) As Boolean

Sub Demo1()
  Const P = "C:\Users\PC Leopard\Downloads\"
    Dim F(), N, L&, V, C%, Bill$
  ReDim F(1 To 1)
        N = Dir(P)
  While N > ""
     If N Like "MN-*.pdf" Or N Like "Briggestone Sales Report ## ???. ####.xlsx" Then L = L + 1: ReDim Preserve F(1 To L): F(L) = N
        N = Dir
  Wend
        If L = 0 Then Beep: Exit Sub
        V = Array("SALES & RETURNS_XLSX", "PURCHASE_PDF")
    For Each N In F
            C = N Like "*.pdf"
            If C Then L = Fix(FileDateTime(P & N)) Else L = DateValue(Mid(N, 26, 6))
            Bill = P & V(-C) & "\REPORT_" & Evaluate("UPPER(TEXT(" & L & ",""[$-409]mmmm\\""))") & N
        If MakeSureDirectoryPathExists(Bill) Then
            If Dir(Bill) > "" Then Kill Bill
            Name P & N As Bill
        Else
            Debug.Print Bill
        End If
    Next
        Application.Speech.Speak "Done !"
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

@Marc L thanks but the code just work for files PDF the XLSX nothing happends .

If the Excel workbooks are not moved that means they are not found so just check the file mask in the While block …

you're right . it was a typo in the code Briggestone should be Bridgestone
many thanks for your time & patience and solution

My bad ! Thanks for the rep' !