文章摘要
这篇文章介绍了定义了一系列自定义常量并实现了一个名为`ImageExport`的功能。该功能用于从数据库中导出图片到指定的物理路径，并对导出的图片进行删除操作。具体来说，文章定义了图片导出的打开模式、锁定类型、数据库连接位置等常量，并在`ImageExport`函数中实现了以下操作：
1. 初始化数据库连接
2. 从数据库中选择图片路径和文件列表
3. 遍历文件列表，检查并删除已存在的图片
4. 显示删除进度消息
5. 释放相关对象
文章通过错误处理机制确保了程序的健壮性，并在函数执行完成后关闭了所有资源。该功能的核心目的是从数据库批量导出并删除图片，并在过程中提供进度反馈。
‘****************** Const ****************
‘—- CuRsorTypeEnum Values —-
Const adOpenForwardOnly=0
Const adOpenKeyset=1
Const adOpenDynamic=2
Const adOpenStatic=3
‘—- LockTypeEnum Values —-
Const adLockReadOnly=1
Const adLockPessimistic=2
Const adLockOptimistic=3
Const adLockBatchOptimistic=4
‘—- CuRsorLocationEnum Values —-
Const adUseServer=2
Const adUseClient=3
‘—- Custom Values —-
Const cuDSN=”test”
Const cuUsername=”sa”
Const cuPassword=””
‘*************** main sub ******************
Call ImageExport()
‘*************** define function ***********
Function ImageExport()
‘on error resume next
Dim sSQL,Rs,Conn,sfzRs,xml
Dim Ados,fso,f,oShell,sErrFile,sSucFile,iErr,iSuc ‘iSuc 文件总数
Dim PicPath,PhysicPath,DelCount ‘删除文件数
Set fso=CreateObject(“Scripting.FileSystemObject”)
‘ Create Stream Object
set Ados=CreateObject(“Adodb.Stream”)
Ados.Mode=3
Ados.Type=1
Set Conn=CreateObject (“adodb.Connection”)
Conn.CuRsorLocation=adUseClient
Call Init_Connection(Conn)
Set Rs=CreateObject (“adodb.recordset”)
Set sfzRs=CreateObject (“adodb.recordset”)
sSQL=”select sPath,sFile from ScanFile”
sfzRs.Open sSQL,Conn,adOpenForwardOnly
iSuc=sfzRs.RecordCount
‘Get SFZH From DataBase and import images
while not sfzRs.EOF
PhysicPath=”E:\VBS删除照片小程序” ‘物理路径
Ados.Open
PicPath=PhysicPath & sfzRs(“sPath”) &”” & sfzRs(“sFile”)
If (fso.FileExists(PicPath)) Then
fso.DeleteFile(PicPath)
DelCount=DelCount+1
end if
sfzRs.MoveNext
Ados.Close
if iSuc-DelCount=iSuc Then
DelCount=0
end if
wend
sfzRs.Close
Conn.Close
‘Release Object
set Rs=nothing:set sfzRs=nothing:set Conn=nothing:set Ados=nothing:set fso=nothing
msgbox “共需要删除” & iSuc & “张照片,其中” & DelCount & “张照片删除成功,” &iSuc-DelCount & “张照片未找到！”,64 ,”照片删除”
‘Quit
WScript.Quit
End Function
Function Init_Connection(Conn)
on error resume next
ConnStr=”Provider=SQLOLEDB;Data Source=192.168.64.114;” & _
“Initial Catalog=VoteInfo;User Id=sa;Password=123456;timeout=50”
Conn.Open ConnStr
If Err.number Then
msgbox “数据库联接失败”,16 ,”照片删除”
exit function
End If
End Function