'函数:ShowFileList
'功能:获取指定的文件或文件夹到ListBox列表中
'函数参数:
'Folderspec:文件夹路径名称
'fExp:后缀名(扩展名),为空“”时代表所有文件夹及文件,指定文件格式直接写文件后缀名,如:exe,“.”只获取所有文件名称,“\”只获取所有文件夹名称。
'//
'函数定义代码:
Private Sub ShowFileList(Folderspec As String, Optional fExp As String = “”)
Dim Fpath As String, fName As String
Dim Folder(4) As Object, isFolder As Boolean
Fpath = IIf(Right(Folderspec, 1) <> “”, Folderspec & “”, Folderspec) '判断路径带是否有"",无则在后面添加""
Set Folder(0) = CreateObject(“Scripting.FileSystemObject”)
Set Folder(1) = Folder(0).getfolder(Fpath)
Set Folder(2) = Folder(1).SubFolders
'isFolder = Folder(0).FolderExists(Fpath) '判断是不是文件夹
List1.Clear
'返回文件夹名称
For Each Folder(3) In Folder(2)
If fExp = “” Or fExp = “\” Then
List1.AddItem Folder(3).Name
End If
Next
'返回文件名称
For Each Folder(4) In Folder(1).Files
fName = Folder(0).GetExtensionName(Folder(4))
If fName = fExp Then
List1.AddItem Folder(4).Name
ElseIf fExp = “” Or fExp = “.” Then
List1.AddItem Folder(4).Name
End If
Next
End Sub
'//
'调用
'在Form(窗体)中画一个ListBox及一个Command1,参数为默认。
'代码:
Private Sub Command1_Click()
Dim URL As String
URL = “C:\Users\Administrator\Desktop\21”'文件夹路径
Call ShowFileList(URL, “exe”)
End Sub
VB获取一个文件夹中指定的文件或文件夹名称到列表
于 2022-03-04 14:13:56 首次发布
此篇博客介绍了一个名为ShowFileList的函数,用于从给定的文件夹中获取指定后缀名的文件或所有文件夹名称,并将其添加到ListBox中。通过例子展示了如何在VBScript中实现该功能,适用于文件管理与列表显示操作。
摘要由CSDN通过智能技术生成