VB.NET 判断文件夹目录与文件是否存在检查

概述Private Sub BTN_LOAD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBTN_LOAD.Click     '文件夹 CHECK     If Not blnDirExist(TXT_PATH.Text.Trim) Then         MsgBox("文件夹路径不存在")  

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

总结

以上是内存溢出为你收集整理的VB.NET 判断文件夹目录与文件是否存在检查全部内容，希望文章能够帮你解决VB.NET 判断文件夹目录与文件是否存在检查所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。