人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

質問です

c:\era-do\
c:\era-ez\
c:\era-sf\
の中にあるcsvファイルを削除する


c:\test-do\
c:\test-ez\
c:\test-sf\
の中にある複数のtxtファイルを

c:\test\
のホルダーに新規に
test_back
の名前のホルダーを作成してすべてその中にコピーする


c:\test-do\
c:\test-ez\
c:\test-sf\
の中にある複数のcsvファイルtxtファイルを削除する

以上の作業を実行できるマクロをお願いします


●質問者: inosisi
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●100ポイント ベストアンサー
Sub main()
 Dim objFileSys

 Set objFileSys = CreateObject("Scripting.FileSystemObject")
 
 Call delsub("c:\era-do\", "csv")
 Call delsub("c:\era-ez\", "csv")
 Call delsub("c:\era-sf\", "csv")

 c = "c:\test\test_back"
 buf = Dir(c, vbDirectory)
 If buf = "" Then
 objFileSys.CreateFolder c
 End If

 d = "c:\test-do\*.txt"
 buf = Dir(d)
 If buf <> "" Then
 objFileSys.MoveFile d, c
 End If
 
 d = "c:\test-ez\*.txt"
 buf = Dir(d)
 If buf <> "" Then
 objFileSys.MoveFile d, c
 End If
 
 d = "c:\test-sf\*.txt"
 buf = Dir(d)
 If buf <> "" Then
 objFileSys.MoveFile d, c
 End If
 
 Call delsub("c:\test-do\", "csv")
 Call delsub("c:\test-ez\", "csv")
 Call delsub("c:\test-sf\", "csv")
 

End Sub


Sub delsub(a As String, b As String)
 Dim objFileSys
 Dim buf As String
 Set objFileSys = CreateObject("Scripting.FileSystemObject")
 
 buf = Dir(a & "*." & b)
 If buf <> "" Then
 objFileSys.DeleteFile a & "*." & b, True
 End If
 Set objFileSys = Nothing
End Sub

inosisiさんのコメント
ありがとうございました うまくいきました 今後ともよろしくおねがいします
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ