Move file by vba

[大灰狼1976]

Hi imrankhan!
Something like below:

Sub test()
Dim pth$, flName$
pth = "C:\Users\srk\Desktop\"
flName = "Book1.xlsb"
If Dir(pth & flName) = "" Then
  Name pth & "Files\" & flName As pth & flName
End If
End Sub