Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
ファイル移動のバッチコマンドについて
投稿日時: 18/07/19 10:55:56
投稿者: けん太

同一フォルダ内の下位層にファイルを移動させていが、うまく動きません。
moveコマンドでは、何も起こらず。
COPYは出来ますが、その後のファイル削除が動いてくれません。
(ファイルは複数格納されています)
記載に誤りがあるのでしょうか?
 
Public Const CR_TARGET As String = "\\sys\999.システム\"
 
Public Sub ファイル移動()
 
Dim retval
Dim BF As String
Dim AF As String
  
    BF = CR_TARGET & "*.*"
    AF = CR_TARGET & "old\*.*"
 
     
    retval = Shell("CMD /C COPY " & """" & BF & """" & " " & """" & AF & """", 0)
    retval = Shell("CMD /C DELETE " & """" & BF & """", 0)
     
End Sub

投稿日時: 18/07/19 17:26:01
投稿者: けん太

自己解決しました。