VB读取目录内的文件名

2024-11-08 02:01:22

推荐回答（3个）

回答（1）：

Private Sub Command1_Click()
Dim d As String, s As String
d = Dir("d:\yule\*.*")  '这里是D盘，你可以改成其他盘
Open "d:\tu.txt" For Append As #1
Do Until d = ""
    s = LCase(Right(d, 4))
    If s = ".jpg" Or s = ".png" Or s = "jpeg" Then Print #1, d
    d = Dir
Loop
Close #1
MsgBox "运行完毕！"
End Sub

回答（2）：

可以这样：
Private Sub Command1_Click()

Shell ("cmd.exe /c dir \yule>\tu.txt")
End Sub

或：
Private Sub Command1_Click()

Shell ("cmd.exe /c dir \yule /b >\tu.txt")
End Sub

回答（3）：

填写一张建行信用卡申请表

VB读取 目录内 的 文件名

VB读取目录内的文件名