Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


67 / 73290 ←次へ | 前へ→

【78852】ファイル移動
質問  ピアニッチ  - 17/2/11(土) 19:26 -

引用なし
パスワード
   ワークシートにパスが入力されています。そのパスの直下にInputBoxで指定した数字名のフォルダに複数のファイルが存在しています。
InputBoxで指定した数字名のパスの中にある"N1.jpg"を指定されたフォルダに移動後、ファイル名の変更をしたいのですが
下記の箇所でファイルが見つかりませんとエラーが出てしまいます。
どのように処理すれば良いでしょうか。よろしくお願いします。
問題箇所:myFso.MoveFile oFilN1, nFilN1


Sub 転送()
Dim myFso As Object
Dim path1 As String
Dim day As String
Dim oFilN1 As String
Dim nFilN1 As String
Dim buffer1 As String

Set myFso = CreateObject("Scripting.FileSystemObject")
'移動元ファイルの検索と移動先の指定
path1 = Range("C12")
day = InputBox("日付を入力して下さい")
If day <> Empty Then
day = CInt(day)
Else
Exit Sub
End If
oFilN1 = Dir(path1 & "\" & day & "\" & "N1.jpg", vbNormal)
nFilN1 = Workbooks("起動シート.xls").path
If Not myFso.fileExists(filespec:=oFilN1) Then
myFso.MoveFile oFilN1, nFilN1
End If

'フォルダ内の画像ファイル名を変更
buffer1 = Dir(path1 & "\" & "N1.jpg", vbNormal)
If buffer1 <> Empty Then
Name path1 & buffer1 As Replace(path1 & buffer1, "N1.jpg", "N1#1_001.jpg")
Else
MsgBox "N1.jpgがありません"
End If
Set myFso = Nothing
End Sub

50 hits

【78852】ファイル移動 ピアニッチ 17/2/11(土) 19:26 質問[未読]
【78853】Re:ファイル移動 マナ 17/2/11(土) 21:34 発言[未読]
【78854】Re:ファイル移動 β 17/2/11(土) 21:51 発言[未読]
【78855】Re:ファイル移動 ピアニッチ 17/2/11(土) 22:38 回答[未読]
【78856】Re:ファイル移動 β 17/2/11(土) 23:00 発言[未読]
【78857】Re:ファイル移動 ピアニッチ 17/2/11(土) 23:16 発言[未読]
【78858】Re:ファイル移動 β 17/2/11(土) 23:43 発言[未読]
【78860】Re:ファイル移動 ピアニッチ 17/2/12(日) 11:37 お礼[未読]

67 / 73290 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free