Open Db_Putanja & "4281045960009.xml" For Output As #1
Naslov = "<?xml version='1.0' encoding='UTF-8'?>"
Print #1, Naslov
'Naslov = "<PaketniUvozObrazaca xsi:schemaLocation='" _
' & "urn:PaketniUvozObrazaca_V1_0.xsd PaketniUvozObrazaca_V1_0.xsd' xmlns='"
 ' & "urn:PaketniUvozObrazaca_V1_0.xsd' xmlns:xsi='http://www.w3.org/2001/XMLSchema'>"
Naslov = "<PaketniUvozObrazaca xmlns='urn:PaketniUvozObrazaca_V1_0.xsd' >"
Print #1, Naslov