Top>言語>VisualBasicApplication(Excel)>2013101801

●ディレクトリが存在するか調べる。

Dir関数を使用しディレクトリが存在するか確認する。
Dir関数は指定したパターンやファイル属性と一致するファイルまたはフォルダの名前を表す文字列型(String型)の値を返却する。


環境とバージョン
OS:Windows Vista Home Premium SP2
アプリケーション:Microsoft Office Excel 2007


関数例
指定したディレクトリが存在する場合True,存在しない場合はFalseを返却する。

' テスト用関数
Sub test_exDirExist()
  Dim strDir As String
  strDir = "c:\Windows"
  
  If exDirExist(strDir) = True Then
    Debug.Print "存在"
  Else
    Debug.Print "存在しない"
  End If
End Sub

'****************************************************************************************************
' ----------------------------------------------------------------------------------------------
' MINDKERNEL.COM 2013/10/18
' ----------------------------------------------------------------------------------------------
'
'【名 称】ディレクトリの存在チェック
'【機 能】ディレクトリが存在するか調べる。
'     ※Dir関数にvbDirectoryオプションを付けているが、(属性がない)ファイルの場合もファイル名を返却する。
'【関数名】exDirExist()
'【引 数】String  PathName  (IN)  : ディレクトリのフルパス
'【戻り値】Boolean TRUE        : 存在する
'            FALSE        : 存在しない
'【履 歴】
' 2013/10/18 新規
'***************************************************************************************************
Public Function exDirExist(PathName As String) As Boolean
  Dim ret As Boolean: ret = False
  
  '引数チェック
  If PathName = "" Then
    GoTo EndError
  End If
  
  'ディレクトリの存在チェック   If Dir(PathName, vbDirectory) = "" Then
    ret = False
  Else
    ret = True
  End If

EndNormal:
  exDirExist = ret
  Exit Function
  
EndError:
  exDirExist = False
  Exit Function
  
End Function


ソースコード
source.txt


最終更新日:2013/10/18

- Published By MINDKERNEL.COM -