[[20160616131132]] 『マクロでフォルダー内ファイル削除』(kiss) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロでフォルダー内ファイル削除』(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.