有没有办法更快一点？ 有没有办法一次性收缩所有数据库？ 复制代码 代码如下: alter database 数据库名 set recovery simple go dbcc shrinkdatabase (数据库名) go alter database 数据库名 set recovery full go目前也有压缩日志的工具，一个B/S..
复制代码 代码如下: On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenTextFile(targetfile,2,True) fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) ..
复制代码 代码如下:On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox "目标文件夹不存在！" Else objFSO...
