Sto provando a capirci qualcosa, e fino ad ora sono riuscito a iniziare a far scrivere il file .kml, coordinate geografiche escluse.
Fin qui non è stato molto difficile, si parla di una ventina di righe di codice.
Codice:
Set objArgs = Wscript.Arguments
Percorso_file = WScript.Arguments(0)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Nome_file = objFSO.GetBaseName(Percorso_file)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
'[Imposta percorso cartella Local\temp]
If objFSO.FileExists (Nome_file & ".kml") then
Set objTextFile = objFSO.GetFile(Nome_file & ".kml")
objTextFile.Delete
end if
Set objTextFile = objFSO.CreateTextFile(Nome_file & ".kml", ForWriting, True)
objTextFile.WriteLine " <?xml version=""1.0"" encoding=""UTF-8""?> "
objTextFile.WriteLine " <kml xmlns=""http://www.opengis.net/kml/2.2"" xmlns:gx=""http://www.google.com/kml/ext/2.2"" xmlns:kml=""http://www.opengis.net/kml/2.2"" xmlns:atom=""http://www.w3.org/2005/Atom""> "
objTextFile.WriteLine " <Placemark> "
objTextFile.WriteLine " <name> " & Nome_file & " </name> "
objTextFile.WriteLine " <open> 1 </open> "
objTextFile.WriteLine " <Point> "
Tuttavia, nel file vbs che ho scaricato ho visto che per leggere i dati EXIF ha tirato giù più di 500 righe di codice. Possibile che ci vuole così tanto solo per leggere appena 4 valori? Oppure è così lungo perché lui aveva bisogno di altri dati (come apertura, distanza focale, tempo di scatto, etc.)?
Ho provato a leggere con attenzione, ma proprio non riesco a capire qual è il "cuore" dello script, e le righe di codice necessarie ad assegnare i valori EXIF...