フォルダ フォルダを検索、無い場合作成

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォルダ フォルダを検索、無い場合作成]
Option Explicit


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







Production Japan Import Application. Since 1998