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

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

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

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