用Dir循环查找
再用Kill删除
再用Kill删除
解决方案 »
- Format 函数的问题
- 送分100分:在VB6的MDI窗体中有一个Picture1控件,此控件中有多个Image控件,要升级此程序到VB2008,这两类控件用什么控件来代替。
- 已知窗口句柄,是否能获得窗口包含的控件以及这些控件的句柄及属性
- 如何读取一个文件夹的所有扩展名为Inf 的文件,并将文件里的信息写入到数据库中~~~~~~~~~~~~~~~~~
- 等着要——自己写的孔件不能编译
- 请问RS!中的!代表什么意思?
- 如何计算2次时间之间间隔的秒数?
- 如何在指定的1.dat二进制文件中查找字符6666并返回它头一个字符所在地址,
- 只剩下一个星期了!!!我的时间不多了!!各位大侠能否提供这类游戏的源代码或类似游戏的源代码???
- 数据库备份时使用活动路径时出错
- 遇到的奇怪问题。。。100分啊
- 打包时提示导致程序在没装vb的机器上无法运行,请高手指点!
如何用Dir()函数来列出C下所有TMP文件并且用文本框输出
下面是一个列出指定目录下所有符合要求的文件名的函数:
Public Function AutoListFiles(ByVal sDirName As String,ByVal FileFilter As String ) As Boolean
On Error GoTo RF_ERROR
Dim sName As String, sFile As String, sExt As String
Dim sDirList() As String, iDirNum As Integer, i As Integer
′首先枚举所有文件
sFile = Dir(sDirName + FileFilter, vbNormal + vbArchive + vbHidden)
Do While Len(sFile) >0
sFile = UCase(Trim(sFile))
′在此处可以将 sFile 加入到一个 Text 控件...
sFile = Dir ′下一个文件
Loop
iDirNum = 0
sName = Dir(sDirName + ″*.*″, vbDirectory + vbNormal)
Do While Len(sName) >0
If sName <> ″.″ And sName <> ″..″ Then
iDirNum = iDirNum + 1
ReDim Preserve sDirList(1 To iDirNum)
sDirList(iDirNum) = sDirName + sName + ″\″
End If
sName = Dir ′下一个目录
Loop
For i = 1 To iDirNum
AutoListFiles sDirList(i) ′递归调用
Next
End If
RF_EXIT:
AutoListFiles = True
Exit Function
RF_ERROR:
MsgBox Err.Description, vbCritical, ″″
Resume RF_EXIT
End Function
调用上述函数的示例:
AutoListFiles(″C:\″,″*.TMP″)
之所以采用上述先处理文件,再处理子目录,一是思路较清晰,另外也有模仿 Prolog 语言中的“尾递归”的想法,当然,VB中是不支持尾递归的。
folder.delete 方法
Dim aa As New FileSystemObject
aa.DeleteFolder ("c:\temp")
End Sub