Option Explicit
dim oFile, Conn, SQL
Dim oFSO	: Set oFSO = CreateObject ("Scripting.FileSystemObject")
Dim vDiVars				: Set vDiVars = CreateObject("Scripting.Dictionary") 			: vDiVars.CompareMode = vbBinaryCompare
vDiVars.add "gvDBConnStringSLO","Provider=SAOLEDB;DSN=GoSoftTest"	

Set Conn=CreateObject("ADODB.Connection") : Conn.ConnectionString=vDiVars.Item("gvDBConnStringSLO") : Conn.Open
call sAddAtt("d:\temp\pivotTest.xlsx", 3003909)
Conn.Close

Set vDiVars = Nothing
Set oFSO = Nothing

sub sAddAtt( byVal sPath, byVal dokid )
	dim rs, stream, int_path, newid
	Dim oFSO	: Set oFSO = CreateObject ("Scripting.FileSystemObject")
	Set oFile = oFSO.getfile(sPath)
	
	wscript.echo time() & " Start"
	Conn.BeginTrans()	' najprej record ...
	set rs = createobject("adodb.Recordset") : rs.Open "SELECT LinkDisk,TipPrip,Skupina,ImePrip,LocalPath,FileName,FileCreate,FileType,FileSize,dokid FROM Priponke WHERE 1=2" , conn, 1, 3
	rs.AddNew
	rs.Fields("LinkDisk").Value = "D" : 	rs.Fields("TipPrip").Value= NULL : 	rs.Fields("Skupina").Value= "XP" : 	rs.Fields("ImePrip").Value= replace(oFile.Name,"." & oFSO.GetExtensionName(oFile),"")	
	rs.Fields("FileName").Value= sPath : 	rs.Fields("FileCreate").Value= oFile.DateCreated : 	rs.Fields("FileType").Value= oFSO.GetExtensionName(oFile) : 	rs.Fields("FileSize").Value= oFile.Size : rs.Fields("dokid").Value = dokid
	rs.Update

	SET rs = Conn.Execute( "SELECT @@Identity" )
	newid = CLng(rs(0))

	SQL = "SELECT fParse_Str('/SQLPath=', Get_Switch('Priponke_Nastavitve','000') ,'//' ) as xPath "
	SET rs = Conn.Execute( SQL )

	SQL = Trim( Replace( rs("xPath"), "#id#", newid , 1 , -1 , 1 )) & "; SELECT Public_data;"
	SET rs = Conn.Execute( SQL )
	int_path = Trim(rs(0))
	Conn.Execute( "UPDATE Priponke SET LocalPath='" & int_path & "' WHERE PripId=" & newid )

	set rs = createobject("adodb.Recordset")
	set stream = createobject("adodb.Stream")
	stream.Type = 1  ' adTypeBinary

	rs.Open "SELECT BlobData FROM TempText2 WHERE 1=0", conn, 1, 3
	rs.AddNew
	stream.Open
	stream.LoadFromFile sPath : wscript.echo time() & " Read"
	rs.Fields("Blobdata").Value = stream.Read : wscript.echo time() & " update"
	rs.Update

	stream.Close : 	wscript.echo time() & " close"
	rs.Close

	' prenos v interni arhiv
	SQL = "SELECT f_File( 'WRITE,CLEAR,MKDIR', '" & int_path & "', @@Identity)"
	SET rs = Conn.Execute( SQL )
	if rs(0) <> 0 then
		Conn.RollbackTrans()
		wscript.echo "Napaka pri prepisu v interni arhiv"
		WScript.Quit
	end if
	
	Conn.CommitTrans()
Set oFSO = Nothing
end sub

