エクセルマクロＶＢＡ　ファイル名を区別して特定フォルダに移動したい

コメント欄だけでは修正内容を伝えきれないと判断し、投稿したコードを修正しました。
意図した動作となっていますでしょうか？

拡張子jpgのファイルのみ処理対象としていますが、
If LCase(Right$(f.Name, Len(TARGET_EXTENTION))) = TARGET_EXTENTION Then
を
If LCase(f.Name) Like "p#########.jpg" Then
とすれば、もう少しシビアにチェックできます。

2018/03/05 08:09:51

「パスが見つかりません」のエラーは、FileSystemObjectに渡したsSourceFolderの値が正しくないということです。
こちらで確認した限りでは問題はなさそうです。

sSourceFolderに実際に格納されている値は、
１．ブレークポイントを設定する
２．Debug.Print sSourceFolder をsSourceFolderを生成した後に追記する
３．メッセージボックスでsSourceFolderを表示させる
等、幾つかの確認方法があるので、確かめてみていただければと思います。

実際のフォルダのパスは、間違いないでしょうか？
提示されたパスのアルファベット、カッコ、数字は、全て半角の文字となっていますが、実際のパスでそれらの中に全角の文字があったりといったことはないでしょうか？あるいは、どこか途中にスペースが有ったりとか？

コマンドプロンプトで、
dir C:\Users\naranara19\Desktop\PC移動受け\写真(現在)\180303\jiriki
として、きちんとファイル名が表示されますか？
もし、「指定されたパスが見つかりません。」と表示されるようであれば、パスの指定が間違っています。

2018/03/05 20:56:38

>これはBD9セルに書式設定で
>
>"P"G/標準".jpg"
>
>のような設定にしているのが原因でしょうか。
はい、その通りです。

書式設定で、"P"G/標準".jpg"と指定した場合、
セル上で、「P180303550.jpg」と見えている状態では、実際にセルに入っている値は、「180303550」の場合と、本当に「P180303550.jpg」が入っている場合のどちらもありえます。外観上区別がつきません。

「180303550」が入っていることを前提とするのであれば、以下のような処理でいかがでしょうか？

Public Sub movePictures改2()

    '元データフォルダ
    Const SOURCE_FOLDER_MAIN    As String = "C:\Users\naranara19\Desktop\PC移動受け\写真(現在)\"
    Const SOURCE_FOLDER_SUB     As String = "\jiriki"

    '移動先フォルダ
    Const DEST_FOLDER1 As String = "C:\Users\naranara19\Desktop\auc"
    Const DEST_FOLDER2 As String = "C:\Users\naranara19\Desktop\auc2"

    'ファイル名パターン（UCaseしたものとの比較に使うので、アルファベットは大文字必須）
    Const FILE_NAME_PATTERN As String = "P#########.JPG"

    'ファイル名プレフィックス長
    Const FILE_NAME_PREFIX_LENGTH   As Long = 1

    'ファイル名長（拡張子を含まない）
    Const FILE_NAMNE_LENGTH_WITHOUT_EXTENSION   As Long = 10

    '親フォルダ名桁数
    Const PARENT_FOLDER_NAME_LENGTH As Long = 6

    '境界となるファイル名の記載されているシート
    Const TARGET_SHEET_NAME As String = "Sheet1"

    '境界となるファイル名の記載されているセル
    Const TARGET_CELL_ADDRESS   As String = "BD9"

    Dim fso     As New FileSystemObject
    Dim f       As FILE
    Dim lFileNameLength     As Long
    Dim sFileName           As String
    Dim sBoundary           As String
    Dim sParentFolderName   As String
    Dim sSourceFolder       As String
    Dim sSourcePath         As String
    Dim sDestPath           As String

    '境界となるファイル名の取得（プレフィックス無し、拡張子無し）
    sBoundary = ThisWorkbook.Worksheets(TARGET_SHEET_NAME).Range(TARGET_CELL_ADDRESS).Value

    '親フォルダ名の取得
    sParentFolderName = Left$(sBoundary, PARENT_FOLDER_NAME_LENGTH)

    '親フォルダの設定
    sSourceFolder = SOURCE_FOLDER_MAIN & sParentFolderName & SOURCE_FOLDER_SUB

    For Each f In fso.GetFolder(sSourceFolder).Files
        'ファイル名から処理対象ファイルか判定
        If UCase(f.Name) Like FILE_NAME_PATTERN Then
            sFileName = Mid$(f.Name, FILE_NAME_PREFIX_LENGTH + 1, FILE_NAMNE_LENGTH_WITHOUT_EXTENSION - FILE_NAME_PREFIX_LENGTH)

            If sFileName >= sBoundary Then
                '境界値以上
                sDestPath = DEST_FOLDER2
            Else
                '境界値未満
                sDestPath = DEST_FOLDER1
            End If

            sSourcePath = sSourceFolder & "\" & f.Name
            sDestPath = sDestPath & "\" & f.Name

            '移動
            Call fso.MoveFile(sSourcePath, sDestPath)
        End If
    Next

    Set fso = Nothing

End Sub

私的な意見を言わせてもらえば、BD9の書式設定はしない方が、後々トラブルに巻き込まれる確率が減るように思います。
見た目と中身が違うのは、混乱の原因になりますので・・・

もしどうしても９桁の数字のみの入力にしたいのであれば、BD9の両脇のセルが空いているようであれば、BC9に「P」、BE9に「.jpg」を予め入力しておくといった方法も考えられます。

2018/03/06 21:45:46