move specific files from directory to another without using cells

[MKLAQ]

Hello Guys !
I have files are their names ("DATA_MONTLY" , "REPORTS RETURNS_MAR" , " INVOICES ARCHIVE") in this directory C:\Users\PC-MKK\Downloads\
what I want moving theses files to this directory D:\Users\PC-MKK\dektop\ MONTHLY FILES\ and if one of them is not existed then should pop up message " the file name is ..... not existed. I want to that without using cells just directly .
thanks

[Marc L]

According to your explanation a VBA demonstration for a starting point
as you should be more accurate with directories like files names (v2) :

Sub Demo1()
  Const B = "D:\Users\PC-MKK\dektop\ MONTHLY FILES\", S = "C:\Users\PC-MKK\Downloads\", C = vbLf & vbLf
    Dim IL, L
        If Dir(B, 16) = "" Then Beep: Exit Sub
        IL = [{"DATA_MONTLY","REPORTS RETURNS_MAR"," INVOICES ARCHIVE"}]
    For L = 1 To UBound(IL)
        If Dir(S & IL(L)) = IL(L) Then
            If Dir(B & IL(L)) = IL(L) Then Kill B & IL(L)
            Name S & IL(L) As B & IL(L)
            IL(L) = False
        End If
    Next
        IL = Filter(IL, False, False)
        If UBound(IL) > -1 Then MsgBox "Not found in " & S & " : " & C & Application.Transpose(Join(IL, C)), , "Control"
End Sub 

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

[MKLAQ]

thanks but pops up path/ file access error in this line

Please Login or Register  to view this content.

I'm sure about the right path for two directories

[Marc L]

As it well works on my side with correct directories & files names so check the attributes of the file raising the error …

[MKLAQ]

I create new file ,then the error is gone , but why tell me the files are not existed in this directory C:\Users\PC-MKK\Downloads\ despite of I use copy & paste to match the names into code with the files names to avoid sensitive spaces . do you have any idea?

[Marc L]

Just compare the attributes between both files …

[MKLAQ]

what do you mean ?
the files are pdf or xlsx

[Marc L]

No, the files attributes like you can see in their properties with Windows Explorer, see with your IT if necessary …

Hoping you have filled the IL array with the files extension like pdf, xlsx, …

[MKLAQ]

I don't understand what you mean IT .
this is the setting for attributes of the file in my pc

[Marc L]

With normal attribute then the issue may come from specific characters like from other OS than Windows,
just try to rename the file(s), that's all I can guess without any further information …

[MKLAQ]

actually I tried to rename the file(s), but doesn't work, anyway thanks for your time
maybe some body has another option.

[Marc L]

What are actually your corrections for the constants and the array variable IL ? ('cause your initial post seems wrong …)

Post #2 demonstration amended in case you do not enter valid filenames in the array …

[MKLAQ]

it gives sound Beep when run the macro

[Marc L]

As this beep means the destination directory within constant B does not exist ! …

[MKLAQ]

even if the directory is correct , it still shows message the files are not found in this C:\Users\PC-MKK\Downloads\:
DATA_MONTLY
REPORTS RETURNS_MAR
INVOICES ARCHIVE
I attach the file & picture for my files names in folder, may be you find out the problem like office-version or else thing

[Marc L]

Yes 'cause those files do not exist ! As I warned in post #8 you forgot the extension like file.pdf or file.xlsx
so just check obviously the complete filenames then update the VBA procedure accordingly …

[MKLAQ]

I warned in post #8 you forgot the extension like file.pdf or file.xlsx

my apologies ! much appreciated for help