[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロでフォルダー内ファイル削除』(kiss)
いつもお世話になっております
マクロを組んだファイルを配置させたホルダー内
他のファイル全て削除したいです
下記の様なサンプルがあったのですが
フォルダ パス指定方法がわからない状態です
Sub DeleteFolde()
Dim Folder_Path, FileName_InFolder As String
'フォルダのパスを取得 Folder_Path = FolderPath
'フォルダ内のすべてのファイル指定 FileName_InFolder = Folder_Path & "\*.*"
'ファイルの削除 Kill FileName_InFolder
'フォルダの削除 RmDir Folder_Path
End Sub
どの様に書けば良いでしょうか
宜しくお願いたします
< 使用 Excel:Excel2010、使用 OS:Windows7 >
Folder_Path = ActiveWorkbook.Path
でも、これだと自分も消そうとしてしまいますよ?
(???) 2016/06/16(木) 13:28
下記の様に
拡張子 CSV 対称にする予定です
'フォルダのパスを取得 FileName_InFolder = ActiveWorkbook.Path
'すべてのファイル指定 FileName_InFolder = FileName_InFolder & "\*.csv"
'ファイルの削除 Kill FileName_InFolder (kiss) 2016/06/16(木) 13:37
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.