Hello, Greg,
many thanks for your quick answer.
I had hope I the file path for the files AT5 and the map bounding box as a parametre could hand over.
...
'--- Shapetables export ---------------------------------------------------
LogFile.WriteLine(FormatDateTime(Date(), 0) & " " & FormatDateTime(Time(), 3))
strsql = "SELECT table_name FROM information_schema.tables where table_name like ('" &rs("tmp_table_name") &"%');"
LogFile.WriteLine(strsql)
set et = conn.execute(strsql)
et.movefirst
do while not et.eof
tbl_Name = et("table_name")
LogFile.WriteLine(et("table_name"))
shp_name = shape_path&"\"&tbl_Name ' Namen des Shapfiles erstellen
strrun = """C:\Program Files\PostgreSQL\9.3\bin\pgsql2shp.exe"" -f "&shp_name&" -h localhost -p 5432 -u xxxxxxx-P xxxxxx" & osm_db &" ""SELECT * FROM "& tbl_name &""""
LogFile.WriteLine(FormatDateTime(Date(), 0) & " " & FormatDateTime(Time(), 3))
LogFile.WriteLine(strrun)
vshell.run strrun,1,true ' Export Shapefiles und warte bis fertig
et.movenext
loop
et.close ' Abfrageobjekt für Liste der Shapetabellen schließen
'--- Den IMC starten ---
for each v in at5_version
prj = imc_prjpath&"\"&tmpname&"_"&v&".sap"
LogFile.WriteLine(FormatDateTime(Date(), 0) & " " & FormatDateTime(Time(), 3))
LogFile.WriteLine("Create AT5 : "&tmpname&", Version : "&v)
if objFSO.FileExists(prj) then
ObjShell.ShellExecute imc_path&"\insightmapcreator.exe",""""&prj&""" -b",1
else
LogFile.WriteLine("Error : No projectfile")
end if
next
rs.movenext
LOOP
...