Question

VB查找指定扩展名并保存到指定目录

VB查找指定扩展名并保存到指定目录
怎么写。。。有没有例子给个。。。谢谢

Answer 1

不知道你说的指定拓展名是什么意思，如果是写文件，可以使用文件处理代码：

Open "文件的路径" For Output As #文件号
Print #文件号, "输出的内容"
Close #文件号

文件号可以使用 FreeFile() 函数获取。例如：i = FreeFile() 获取可用的文件号。

追问

查找IE缓存GIF扩展名全部文件提取到指定目录

追答

这个简单，添加一个 FileListBox 控件，利用循环将指定目录内的文件全部提取到指定的位置！
根据你的要求，IE缓存文件夹一般是：系统盘:\Users\%USERNAME%\AppData\Local\Microsoft\Windows\Temporary Internet Files
%USERNAME% 是当前的用户名，这个可以使用 Environ$("UserName") 获取。所以综合得知IE缓存文件夹就是：Environ$("SystemDrive") & "\Users\" & Environ$("UserName") & "\AppData\Local\Microsoft\Windows\Temporary Internet Files"

下面是我写的代码：

Private Sub Form_Load()
'File1 是 FileListBox 控件
File1.Pattern = "*.gif"
File1.Path = Environ$("SystemDrive") & "\Users\" & Environ$("UserName") & "\AppData\Local\Microsoft\Windows\Temporary Internet Files"
File1.Refresh
Dim i As Long, strDestPath As String
strDestPath = "你指定要提取到的目录路径" '// 这里改成你要保存到的位置，例如: D:\123 文件夹下
If File1.ListCount > 0 Then
For i = 0 To File1.ListCount - 1
FileCopy File1.Path & "\" & File1.List(i), strDestPath & "\" & File1.List(i) '// 将 GIF 文件复制到指定是位置中
Next i
MsgBox "GIF 文件提取完成，本次共提取了 " & File1.ListCount & " 个文件！", vbInformation + vbOKOnly, "提示"
Else
MsgBox "没有在IE缓存目录中发现 GIF(*.gif) 文件！", vbExclamation + vbOKOnly, "提示"
End If
End Sub

希望采纳~！谢谢。。。

追问

获取不到

追答

获取不到是正常的，因为这个文件夹里的文件不是我平常磁盘上的文件，它需要经过处理才能提取。这个问题需要经过进一步处理，给你的是思路，自己琢磨吧！~祝你成功。。。