vb目录中的tmp哪里来的?

发布网友 发布时间：2023-01-12 11:54

我来回答

共3个回答

热心网友 时间：2023-11-01 01:52

一般情况下，vb目录中不会产生tmp文件。除非VB非正常退出，或用户把其他软件安装到VB目录中。

解决的办法很简单：
1、保证每次VB打开后，正常关闭。
2、把别的应用程序安装到其他目录，即使是VB编写的程序也一样。

热心网友 时间：2023-11-01 01:52

Function ReNameFile(Folder As String) As Integer
On Error GoTo 10 '捕获错误进入10
Set ofso = CreateObject("Scripting.FileSystemObject") '建立FSO对象
Set fo = ofso.getfolder(Folder) '用FSO打开Folder文件夹
Dim filenum As Integer
Dim a
For Each f In fo.Files '在Folder文件夹根目录查找文件
If UCase(Mid(f.Name, 1, 3)) = "TMP" And UCase(Mid(f.Name, Len(f.Name) - 2, 3)) = "JPG" Then
'如果文件命名格式为TMP*.JPG(*是通配符)
a = Val(Mid(f.Name, 4, Len(f.Name) - 7)) '记录上一句中*的值
filenum = IIf(filenum < a, filenum, a) '与上个文件*的值进行比较,取小者赋给*
End If
Next '继续查找下一个文件
Name Folder & f.Name As Folder & "zz.jpg" '重命名为zz.jpg
ReNameFile = -1 '如果没有发生异常则返回-1,表示无异常
Exit Function
10 '错误入口
ReNameFile = Err.Number '返回错误号
'Err.Raise Err.Number '这句是调试用的,使错误重演
End Function

Private Sub Form_Load()
On Error GoTo 10 '错误处理
Set ofso = CreateObject("Scripting.FileSystemObject") '建立FSO对象
ofso.CopyFolder "e:\aa\work1_to", "E:\AA\SHOP DOC" '拷贝文件夹
ofso.DeleteFolder "e:\aa\work1_to" '删除原文件夹
a = ReNameFile("E:\AA\SHOP DOC\") '执行上面的函数
If a = -1 Then '如果未发生异常
FileCopy "e:\FILECHANGE.EXE", "e:\aa\shop doc\" '拷贝FILECHANGE.exe
Shell "e:\aa\shop doc\filechange.exe" '并shell它
MsgBox "操作成功!"
Else '如果发生了异常
MsgBox "操作失败!错误号" & a '弹出错误号
End If
Exit Sub '跳过错误处理,直接退出
10 '错误处理
MsgBox "操作失败!错误号" & Err.Number '弹出错误号
End Sub

热心网友 时间：2023-11-01 01:53

我的怎么没有这tmp目录？是不是你保存工程时自己创建的？