Private Sub Command1_Click()
Dim str1 As String
str1 = Dir("C:\WINDOWS\") '"C:\WINDOWS\"为你的文件夹名
Do While str1 <> ""'循环全部文件
Debug.Print str1
'str1是"C:\WINDOWS\"目录下文件名,可以加上你的对单个文件处理
str1 = Dir
Loop
End Sub
Dim str1 As String
str1 = Dir("C:\WINDOWS\") '"C:\WINDOWS\"为你的文件夹名
Do While str1 <> ""'循环全部文件
Debug.Print str1
'str1是"C:\WINDOWS\"目录下文件名,可以加上你的对单个文件处理
str1 = Dir
Loop
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货