前端之家收集整理的这篇文章主要介绍了
VB.NET 判断文件夹目录与文件是否存在检查,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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
原文链接:https://www.f2er.com/vb/259955.html