if (Len(saveFile(StrSaveFileName,rst.fields("File_Data").GetChunk(rst.fields("File_Size").Value)))= 0 )

'----------------------------------------------------------------------'
' скрипт обеспечивает выгрузку файлов из базы File_IMAGE'
'----------------------------------------------------------------------'
Dim fso,c,rst, StrConnection, StrQuery,StrSaveFileName, StrLogFileName 'глобальные переменные и обьекты'

Const adOpen =  3  
IntRoute =  0 
StrRoute= ""
Set fso  = CreateObject ("Scripting.FileSystemObject")
Set c = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

StrConnection="Application Name=Unload_File.vbs;Provider=SQLOLEDB.1;Password=PASSVORD;Persist Security Info=True;User ID=USER;Initial Catalog=File_IMAGE;Data Source=127.0.0.1,1433"
StrQuery="select [File_Data], [File_Name] , [File_Size] from File_IMAGE.dbo.t_files where [File_Name] like '%Вася%.jpg'"
StrLogFileName="C:\Image\Unload_File.log"

ScriptMain  ' точка входа скрипта'

Set fso = Nothing
Set rst = Nothing
Set c = Nothing
'----------------------------------------------------------------------'
Sub ScriptMain()
    on error resume next
log (" --- start ---")

    c.CursorLocation =  3 
    c.ConnectionString = StrConnection
    c.Open  
      
  if err.number then
       log ("ScriptMain. Ошибка при попытке подключения к базе данных: "&err.description & " (" & err.number & ")")
       exit sub
  end if 
  
  rst.Open StrQuery, c, adOpen
  
  if err.number then
       log ("ScriptMain. Ошибка при попытке получения списка файлов для выгрузки: "&err.description & " (" & err.number & ")")
       exit sub
  end if   
   
  If  (rst.EOF) Then 
	 log ("ScriptMain. Файлов для выгрузки: 0")
	 exit sub
  end if
  
 rst.MoveFirst
  
 Do While Not (rst.EOF)  

    
StrSaveFileName="C:\Image\"&rst.fields("File_Name").Value
 
    
    if fso.FileExists(StrSaveFileName) then  '- зачистка перед сохранением'
      fso.DeleteFile(StrSaveFileName)
     Log("Удален файл: "&StrSaveFileName&" (зачистка перед сохранением)")  
    end if    
    
        if (Len(saveFile(StrSaveFileName,rst.fields("File_Data").GetChunk(rst.fields("File_Size").Value)))= 0 )then
Log("Не удалось выгрузить файл: "&StrSaveFileName&", Size="&CStr(rst.fields("File_Size").Value)) 
	else
Log("Выгружен файл: "&StrSaveFileName&", Size="&CStr(rst.fields("File_Size").Value)) 
        end if

    
    rst.MoveNext
    Loop   

log ("End")
End sub


'-------------------------------------------------------------------------'
function saveFile(filename,File_Data)
  on error resume next
  Dim RetStr
  RetStr=filename
     set adodbStream = CreateObject("ADODB" & "." & "Stream")
     adodbStream.Type=  1 
     adodbStream.Open
     adodbStream.write File_Data     

     adodbStream.SaveToFile filename, 2        
     
     if err.number then
       log ("saveFile. Ошибка при попытке сохранить данные в файл: "&filename&" "&err.description & " (" & err.number & ")")
        RetStr=""
     end if 
     
     adodbStream.Close
    saveFile=RetStr
end function
'-------------------------------------------------------------------------'
Sub log(sData)  ' запись логов'
    Dim ts, ForAppending
    ForAppending =  8 
    Set ts = fso.OpenTextFile(StrLogFileName, ForAppending, True)
    ts.Write Date & " - "& Time() & " " & sData & chr( 13 ) & chr( 10 )
    ts.Close
End Sub
'-------------------------------------------------------------------------'
Function fixed_len(i, l)
  fixed_len = String(l - Len(FormatNumber(i,  0 , , , False)), "0") & FormatNumber(i,  0 , , , False)
End Function