ここから本文です

ワイルドカードの使用方法がわかりません。 変数oName_2 = "26"は、 "26"の後に複...

inz********さん

2017/2/1214:03:52

ワイルドカードの使用方法がわかりません。
変数oName_2 = "26"は、 "26"の後に複数の文字列が存在するjpgファイルを示しています。

変数にはワイルドカードが使用できないという認識の下、以下の箇所でこのようにコーディングしましたが取得できませんでした。
oFile = oPath & "\" & oName_2 Like "*" & ".jpg"
どのようにコードを修正すれば、宜しいでしょうか?

コード全容
Sub 転送()
Dim myFso As Object
Dim i As Integer
Dim Path As String
Dim oPath As String
Dim nPath As String
Dim oName_N As String
Dim nName_N As String
Dim oName_2 As String
Dim nName_2 As String
Dim oName_M As String
Dim nName_M As String
Dim oFile As String
Dim nFile As String

i = 0
oName_N = "N1.jpg"
nName_N = "R#18_001.jpg"
oName_2 = "26"
nName_2 = "R#18_002.jpg"
oName_M = "MAP"
nName_M = "R#18_003.jpg"

Set myFso = CreateObject("Scripting.FileSystemObject")
For i = 0 To 2
Path = Cells(i + 12, 3).Value
If Right(Path, 1) <> "\" Then Path = Path & "\"
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Path
.Title = "フォルダを選んでください"
.Show
If .SelectedItems.count = 0 Then Exit Sub 'キャンセルボタン
oPath = .SelectedItems(1)
End With
nPath = ThisWorkbook.Path
'元ファイルフォルダと転記元のファイル名の指定
If i = 0 Then
oFile = oPath & "\" & oName_N
nFile = nPath & "\" & nName_N
ElseIf i = 1 Then
oFile = oPath & "\" & oName_2 Like "*" & ".jpg"
nFile = nPath & "\" & nName_2
Else
oFile = oPath & "\" & oName_M
nFile = nPath & "\" & nName_M
End If

'転記元の存在チェック
If Not myFso.fileexists(oFile) Then
MsgBox "ファイルが存在しません"
Exit Sub
End If
Next

End Sub

閲覧数:
33
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

msk********さん

2017/2/1214:12:38

Likeは不要です。

oFile = oPath & "\" & oName_2 & "*.jpg"

  • 質問者

    inz********さん

    2017/2/1214:25:34

    ご回答ありがとうございます。
    イミディエイトウィンドウで確認しましたが
    C:\Users\n\Desktop\13\26*.jpgと表示され、
    ファイルが存在しないことになっています。

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この回答は投票によってベストアンサーに選ばれました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる