当前位置：文江博客话题详情

如何使用 VB6 获取目录中所有文件名的列表？

发布于 2024-07-09 03:34:26 字数 46 浏览 6 评论 0原文

VB6中循环遍历指定文件夹目录中的所有文件并获取它们的名称的最简单方法是什么？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

拔了角的鹿 2024-07-16 03:34:26

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop

回复收藏 0 原文

鞋纸虽美，但不合脚ㄋ〞 2024-07-16 03:34:26

Dim fso As New FileSystemObject
Dim fld As Folder
Dim fil As File
Set fld = fso.GetFolder("C:\My Folder")
For Each fil In fld.Files
  Debug.Print fil.Name
Next
Set fil = Nothing
Set fld = Nothing
Set fso = Nothing

Dim fso As New FileSystemObject
Dim fld As Folder
Dim fil As File
Set fld = fso.GetFolder("C:\My Folder")
For Each fil In fld.Files
  Debug.Print fil.Name
Next
Set fil = Nothing
Set fld = Nothing
Set fso = Nothing

回复收藏 0 原文

雨的味道风的声音 2024-07-16 03:34:26

DJ 的解决方案简单而有效，如果您需要 FileSystemObject 可以提供的更多功能（需要引用 Microsoft Scripting Runtime），只需扔掉另一个即可。

Dim fso As New FileSystemObject
Dim fil As File

For Each fil In fso.GetFolder("C:\").Files
  Debug.Print fil.Name
Next

DJ's solution is simple and effective, just throwing out another one in case you need a little more functionality that the FileSystemObject can provide (requires a reference to the Microsoft Scripting Runtime).

Dim fso As New FileSystemObject
Dim fil As File

For Each fil In fso.GetFolder("C:\").Files
  Debug.Print fil.Name
Next

回复收藏 0 原文

十六岁半 2024-07-16 03:34:26

'对于 VB6 来说非常棘手：
'只需获取保存在磁盘/项目目录中的所有项目 .frm 文件的位置

Dim CountVal As Integer
计数值 = 0
cbo.Clear

sFilename = Dir(App.Path & "\Forms\")
Do While sFilename > ""
  If (Right(sFilename, 4) = ".frm") Then
  cbo.List(CountVal) = Left(sFilename, (Len(sFilename) - 4))
  CountVal = CountVal + 1
  End If

   sFilename = Dir()
Loop

'For VB6 very Tricky:
'Simply get the location of all project .frm files saved in your disk/project directory

Dim CountVal As Integer
CountVal = 0
cbo.Clear

sFilename = Dir(App.Path & "\Forms\")
Do While sFilename > ""
  If (Right(sFilename, 4) = ".frm") Then
  cbo.List(CountVal) = Left(sFilename, (Len(sFilename) - 4))
  CountVal = CountVal + 1
  End If

   sFilename = Dir()
Loop

回复收藏 0 原文

格子衫的從容 2024-07-16 03:34:26

创建名称为 browserButton 的按钮
创建名称为 List1 的文件列表框，

双击设计中的按钮

，代码应该如下所示，

Private Sub browseButton_Click()

Dim path  As String
path = "C:\My Folder"

List1.path() = path
List1.Pattern = "*.txt"
End Sub

现在运行它

create button with name = browseButton
create filelistbox with name = List1

double click on button in design

and code should look like this

Private Sub browseButton_Click()

Dim path  As String
path = "C:\My Folder"

List1.path() = path
List1.Pattern = "*.txt"
End Sub

done now run it

回复收藏 0 原文

黯然#的苍凉 2024-07-16 03:34:26

您可以使用以下演示代码，

Dim fso As New FileSystemObject
Dim fld As Folder
Dim file As File
Set fld = fso.GetFolder("C:\vishnu")
For Each file In fld.Files
  msgbox file.Name
Next

You can use the following demo code,

Dim fso As New FileSystemObject
Dim fld As Folder
Dim file As File
Set fld = fso.GetFolder("C:\vishnu")
For Each file In fld.Files
  msgbox file.Name
Next

回复收藏 0 原文

~没有更多了~