| |
指定したのファイルを取得して、指定したコピー先にコピーするマクロを
作成していますが、ファイルが一部取得できません。
B15に"NN.jpg"
B16に"264.5.jpg"
B17に"mm.jpg"
の文字列が入力されています。
B16の文字列の5桁目だけ数字が変化します。
ワイルドカードを使用して、取得できるように試みましたが上手く取得できません。下記のコードでどのように変更すれば良いでしょか。
Dim myFso As Object
Dim k As Integer
Dim sfile As String
Dim sfolder As String
Dim dfile As String
Dim dfolder As String
Dim sPath As String
Dim dPath As String
Dim f As String
Set myFso = CreateObject("Scripting.FileSystemObject")
'ファイル名、フォルダ名
For k = 15 To 17
sfile = Cells(k, "B").Value
sfolder = Cells(k, "C").Value
dfile = Cells(k, "D").Value
dfolder = Cells(k, "E").Value
sPath = sfolder & "\" & sfile
' sfileワイルドカード対応（"264.*.jpg" などの入力）
f = Dir(sPath)
sPath = sfolder & "\" & f
dPath = dfolder & "\" & dfile
'転記先ファイルの削除（念のため）
If myFso.fileexists(dPath) Then myFso.GetFile(dPath).Delete Force:=True
'ファイル移動
If myFso.Folderexists(dfolder & "\") Then
myFso.copyFile sPath, dPath
End If
Next
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
