VB如何提取指定文件夹里第一个文件夹名称

发布网友 发布时间：2022-04-20 14:45

我来回答

共2个回答

热心网友 时间：2023-04-22 12:01

'以下程序调试成功。 你新建工程后，在窗体上需要放置一个Text1，然后把代码全粘贴进去，运行。 最好把Text1的MultiLine属性设置为true，这样可以分行显示

Private Sub Form_Load()
Dim sF As String, c As Integer
Text1.Text = ""
sF = Dir(App.Path & "\", vbDirectory) ' 查找目录中第一个文件夹名称
Do While sF <> ""
' 跳过当前的目录及上层目录
If sF <> "." And sF <> ".." Then
If (GetAttr(sB + sF) And vbDirectory) = vbDirectory Then
Text1.Text = Text1.Text & sF & vbCrLf ' 如果它是一个目录，将其名称添加到text1.Text
c = c + 1
End If
End If
sF = Dir ' 查找下一个目录
Loop
MsgBox "共有" & c & "个文件夹"
End Sub

热心网友 时间：2023-04-22 12:01

Private Sub Command1_Click()
Text1.Text = ""
MyPath = "c:\" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Text1.Text = Text1.Text & MyName & vbCrLf ' 如果它是一个目录，将其名称显示出来。
End If
End If
MyName = Dir ' 查找下一个目录。
Loop
End Sub追问我只提取当前目录下面的文件夹名称，是程序所在当前目录哦