双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何判断一个文件夹是否存在

2004-05-11 07:18:39 316 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

killvs 墨衍会员 · AI 创作全网分发关注 + 加入社区

博科SAN交换机运维实战：从FC概念、Zone配置到故障排查存储网络是数据中心基础架构的关键一环，而光纤通道（FC）凭借低延迟、不丢帧的特性，成为数据库和虚拟化环境访问存储阵列的主流方式。博科（Brocade）SAN交换机正是构建FC存储网络的核心设备，其操作逻辑与传统以太网交换机截然不同，WWN、Domain、Zone等概念构成运维基础。正确划分Zone是保障存储安全与性能的关键，同时掌握端口状态检查和固件升级流程，对业务连续性至关重要。从FC基础概念出发，结合工程实践，系统梳理博科SAN交换机的常用命令、Zone配置方法、故障排查思路及升级注意事项，为存储运维人阅读详情

如何判断一个文件夹是否存在dir只能判断一个文件的存在那文件夹用什么函数?

...全文

中兴交换机堆叠配置避坑指南：详解memberid、domain和端口组那些容易配错的参数本文深入解析中兴交换机堆叠配置中的关键参数，包括memberid、domain和端口组，提供详细的避坑指南和实战案例。通过正确配置这些参数，可以有效避免堆叠分裂、主备频繁切换等问题，提升网络稳定性和业务连续性。阅读详情

killvs

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

BlueBeer 2004-05-12

打赏
举报

如果是仅仅只要知道文件夹存不存在，dir好像也可以的
dir("c:\windows")返回空字符串，但
dir("c:\windows\")就可以返回c:\windows下的一个文件名了
用len(dir("c:\windows\")，返回0就说明不存在
也可能是个空文件夹？：）
这个办法不好：）

或者用getattr也行
得到文件夹属性就说明文件夹存在，出错就说明不存在
咳，这个办法和hisofty(瘦马)的思路一样

反正想知道一个文件夹存不存在的办法多了，我就不废话了：）

wumy_ld 2004-05-11

打赏
举报

'以下代码判断一个文件夹是否存在，如果不存在，则创建它：
‘引用Microsoft Scripting Runtime
’创建一个指定的无限层文件夹
Public Function CreateDirectory(ByVal strDirectory As String) As Boolean
On Error GoTo ErrMsg
Dim Status
Dim fso As FileSystemObject
Dim strTempDir As String
Dim intPos As Integer

Screen.MousePointer = 11
CreateDirectory = False

’字符串是否为空
If strDirectory = "" Then GoTo ExitLab

’首先检查文件夹是否已经存在
Set fso = New FileSystemObject
If fso.FolderExists(strDirectory) = True Then
’已经存在
CreateDirectory = True
GoTo ExitLab
Else
If MsgBox("您输入的安装目录不存在，要创建该目录吗？", _
vbQuestion + vbYesNo + vbDefaultButton1, "询问") = vbNo Then GoTo ExitLab
End If

If Right(strDirectory, 1) <> "\" Then
strDirectory = strDirectory & "\"
End If

’不存在的情况
intPos = InStr(1, strDirectory, "\")
If intPos < 1 Then
MsgBox "您输入的文件夹不规范，请重新设置！", vbInformation, "提示"
GoTo ExitLab
End If

Do
strTempDir = Left(strDirectory, intPos - 1)
If fso.FolderExists(strTempDir) = False Then
fso.CreateFolder strTempDir
End If

intPos = InStr(intPos + 1, strDirectory, "\")
Loop Until intPos < 1

CreateDirectory = True

GoTo ExitLab
ErrMsg:
Status = SetError(Err.Number, Err.Description, Err.Source)
ErrMsg Status
ExitLab:
Screen.MousePointer = 0
End Function

roger_xiong 2004-05-11

打赏
举报

点击“工具”－“引用”，引用 Microsoft Scripting runtime

Dim fso As New FileSystemObject
If fso.FolderExists("c:\temp") = False Then
fso.CreateFolder ("c:\temp")
End If

上述代码是指：如果"c:\temp"目录不存在的话就建立它。

hisofty 2004-05-11

打赏
举报

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

hisofty 2004-05-11

打赏
举报

On Error Goto error
ChDir "H\Chowyunfat"
MsgBox "path In text1 exist's"
Exit Sub
error:
MsgBox "The path does Not exist"

yinweihong 2004-05-11

打赏
举报

例：
引用Microsoft Script Control 1.0
Microsoft Scripting Runtime
Function CheckFolder(FoldrPath As String) As Boolean
Dim Exists As Boolean, CreateIt
Dim fso As New FileSystemObject
If (fso.FolderExists(FoldrPath)) Then
Exits = True
Else
Exits = False
'不存在则建立
Set CreateIt = fso.CreateFolder(FoldrPath)
End If
'值返回函数
CheckFolder = Exits
End Function
检验程式
Private Sub Form_Load()
Dim a As Boolean
a = CheckFolder("C:\新建文件夹")
MsgBox a
End Sub

✦双11狂欢大促✦

如何判断一个文件夹是否存在

相关推荐

双11狂欢大促