Excel VBA質問箱 IV

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

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


207 / 73435 ←次へ | 前へ→

【78857】Re:ファイル移動
発言  ピアニッチ  - 17/2/11(土) 23:16 -

引用なし
パスワード
   ご教授の程、よろしくお願いします。


Sub 転送()
  Dim myFso As Object
  Dim path1 As String
  Dim path2 As String
  Dim path3 As String
  Dim day As String
  Dim oFilN1 As String
  Dim nFilN1 As String
  Debug.Print
  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")
  nFilN1 = Workbooks("起動シート.xls").path
  MsgBox oFilN1

  
  If Not myFso.fileExists(filespec:=oFilN1) Then
    myFso.MoveFile oFilN1, nFilN1
  End If
  Set myFso = Nothing
End Sub
  

58 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 お礼[未読]

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