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 -