Function SaveBinaryData(FileName, ByteArray)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To save binary data.
BinaryStream.Type = adTypeBinary
'Open the stream And write binary data To the object
BinaryStream.Open
BinaryStream.Write ByteArray
'Save binary data To disk
BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function
sFileName = "" & rsRSFile("FILENAME")
wscript.echo "Saving doc #: " & iDocID & " as filename: " & sFileName
size = rsRSFile.Fields("DOC_BLOB").ActualSize
wscript.echo vbtab & "Size: " & size
if size > 0 then
blob = rsRSFile.Fields("DOC_BLOB").GetChunk(size)
'wscript.echo blob
wscript.echo vbtab & vbtab & rsRS("DOCUMENT_NAME")
wscript.echo SaveBinaryData(sFileAndPath & sFileName, blob)
end if
Sub CreateFolder(ByVal strPath)
On Error Resume Next
Dim objFSO ' Could be made global..
set objFSO = CreateObject("Scripting.FileSystemObject") 'Could be set global...
If Not objFSO.FolderExists(objFSO.GetParentFolderName(strPath)) Then Call CreateFolder(objFSO.GetParentFolderName(strPath))
objFSO.CreateFolder(strPath)
On Error GoTo 0
End Sub
Public Function IIf(blnExpression, vTrueResult, vFalseResult)
If blnExpression Then
IIf = vTrueResult
Else
IIf = vFalseResult
End If
End Function
function funFormatColumns(sString,iCount)
if iCount > len(sString) then
iDiff =iCount- len(sString)
funFormatColumns = sString & space(iDiff)
else
funFormatColumns = left(sString,iCount)
end if
end function
Function Ping(Target)
Dim results
On Error Resume Next
Set shell = CreateObject("wScript.Shell")
' Send 1 echo request, waiting 2 seconds for result
Set exec = shell.Exec("ping -n 1 -w 100 " & Target)
results = LCase(exec.StdOut.ReadAll)
Ping = (InStr(results, "reply from") > 0)
End Function
function funScrubStr(strTxt)
funScrubStr=replace(replace(replace(strTxt,"'","''")," & chr(34) & "," & chr(34) & chr(34) & "), ",", ",,")
end function