フォルダ フォルダを検索、無い場合作成
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub BKUFolder() '************************************** '目的のフォルダを検索、無い場合作成する '************************************** '有った場合、そのフォルダ内にある元からあるファイルを削除する。 'バックアップ用 Dim strFl_mn As String Dim dirFile As String 'パラメータ 'フォルダ名(パスも含む) strFl_mn = ThisWorkbook.Path & "\TEST" '無い場合目的フォルダを作成 If Dir$(strFl_mn, vbDirectory) = "" Then MkDir strFl_mn Exit Sub Else 'ある場合 'ファイルが存在するか確認 dirFile = Dir(strFl_mn & "\*.*", 0) 'ファイルが存在する場合 If dirFile <> "" Then Kill strFl_mn & "\*.*" End If '既存のフォルダを削除する場合の処理 'dirFile = Dir() 'RmDir strFl_mn End If '------------------------------------------------------------------------ '【構文】 'Dir[(pathname[, attributes])] 'pathname 省略可能。 ' ファイル名を表す文字列式を指定｡ ' フォルダ名およびドライブ名も含めて指定できます｡ ' 引数 pathname に指定した内容が見つからないときは、長さ 0 の文字列 (" ") を返します。 'Attributes 省略可能。 ' 取得するファイルが持つ属性の値の合計を表す数式または定数を指定します｡ ' 省略すると､標準ファイルの属性になります｡ 'vbNormal 0 標準ファイル 'vbReadOnly 1 読み取り専用ファイル 'vbHidden 2 隠しファイル 'vbSystem 4 システムファイル。Macintosh不可。 'vbVolume 8 ボリュームラベル。すべての属性無効。Macintosh不可。 'vbDirectory 16 フォルダ 'vbAlias 64 エイリアスファイル。Macintoshのみ。 '------------------------------------------------------------------------ End Sub |