自分が作った適当な関数を書く。
自作プログラムに必要な関数を拾ってく。
みんな幸せでい〜んじゃないの？

'↓例　Dir関数があるから本当はこの関数は不要
'*******************************************
'フォルダの存在確認関数
'引数：フォルダのパス
'戻り値　True = 存在する , False = 存在しない
'*******************************************
Function GetExistenceOfFolder(Path As String) As Boolean
Dim strRet As String
strRet = Dir(Path, vbDirectory)
If strRet = vbNullString Then
GetExistenceOfFolder = False
Else
GetExistenceOfFolder = True
End If
End Function