如何解决父文件夹中文件夹和子文件夹列表的 Vba 代码
我正在创建一个代码,如果我点击一个按钮,那么将列出文件夹中的所有文件夹和子文件夹。就像我有一个文件夹名称“父”。父文件夹下有 5 个文件夹。假设a,b,c,d,e。同样,每个 a、b、c、d、e 文件夹中都有多个文件夹。现在我希望代码在单击时列出所有文件夹。这是代码。
Sub Button1_Click()
'Factory List--------------------------------------------
Worksheets("Sheet1").Range("A1:B100").ClearContents
Dim FactoryFolderName As String
Dim FactoryFolderPath As String
FactoryFolderPath = "C:\Users\Rokon\Desktop\Project Test Folder\Sub-Contract\"
FactoryFolderName = Dir(FactoryFolderPath,vbDirectory)
Do While FactoryFolderName <> ""
If GetAttr(FactoryFolderPath & FactoryFolderName) = vbDirectory And FactoryFolderName <> "." And FactoryFolderName <> ".." Then
Application.EnableEvents = False
For Each cell In Worksheets("Sheet1").Columns(1).Cells
If IsEmpty(cell) = True Then cell.Value = FactoryFolderName: Exit For
Next cell
'---------------------------------------------------
Dim BuyerFolderName As String
Dim BuyerFolderPath As String
BuyerFolderPath = FactoryFolderPath & FactoryFolderName & "\"
BuyerFolderName = Dir(BuyerFolderPath,vbDirectory)
Do While BuyerFolderName <> ""
If GetAttr(BuyerFolderPath & BuyerFolderName) = vbDirectory And BuyerFolderName <> "." And BuyerFolderName <> ".." Then
Application.EnableEvents = False
For Each cell In Worksheets("Sheet1").Columns(1).Cells
If IsEmpty(cell) = True Then cell.Value = BuyerFolderName: Exit For
Next cell
Application.EnableEvents = True
End If
BuyerFolderName = Dir()
Loop
'-----------------------------------------------------
Application.EnableEvents = True
End If
FactoryFolderName = Dir()
Loop
End Sub
但问题是这段代码在 FactoryFolderName = Dir()
行抛出了一个错误。请帮忙!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。