Witam serdecznie,
Mam problem ze skryptem vbs i funkcją savetofile. Możliwości tam są 2: albo nadpisuje plik, albo jeśli istnieje - nie tworzy go. Chciałbym natomiast, aby przy istniejącym pliku - utworzył nowy z nową nazwą np. dodał 2, następnie 3 itp przy każdym uruchomieniu skryptu. Oto kod:
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "http:// - tutaj pobieram plik", False
xHttp.Send
with bStrm
.type = 1 '
.open
.write xHttp.responseBody
.savetofile "C:\baza\db.xml", 1 ' (przy ustawieniu 1 nie zapisuje w ogóle pliku, przy 2 go nadpisuje)
end with
Dzięki za pomoc!