PrivateSubBTN_LOAD_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBTN_LOAD.Click
'文件夹 CHECK
IfNotblnDirExist(TXT_PATH.Text.Trim)Then
MsgBox("文件夹路径不存在")
BTN_LOAD.Focus()
ExitSub
EndIf
'文件 CHECK
IfNotblnFileExist(TXT_PATH.Text.Trim)Then
MsgBox("文件不存在")
BTN_LOAD.Focus()
ExitSub
EndIf
EndSub

#Region"文件夹存在CHECK"
PrivateFunctionblnDirExist (ByValstrPathAsString)AsBoolean
DimstrDirTempAsString()
strDirTemp = strPath.Split("\")
strPath =String.Empty
ForiAsInteger= 0TostrDirTemp.Length – 2
strPath += strDirTemp(i) &"\"
Next

blnDirExist = System.IO.Directory.Exists(strPath)
EndFunction
#End Region

#Region"文件存在CHECK"
PrivateFunctionblnFileExist (ByValstrFileAsString)AsBoolean
blnFileExist = System.IO.File.Exists(strFile)
EndFunction #End Region