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

发布时间：2020-12-16 22:29:29 所属栏目：大数据来源：网络整理

导读：Private Sub BTN_LOAD_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_LOAD.Click ' 文件夹 CHECK If Not blnDirExist(TXT_PATH.Text.Trim) Then MsgBox( " 文件夹路径不存在 " ) BTN_LOAD.Focus() Exit Sub End If '

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!