[VBS] Associazione di un file ad applicazione specifica (WSH)

[marcoe]

scusatemi per il ritardo della risp.
di seguito il codice vbs

ExtVar = "TIF"
ProgVar = "MSPaper.Document"
Set objTIF = CreateObject("wscript.shell")
objTIF.regwrite "HKCR\." + ExtVar + "\" , ProgVar , "REG_SZ"
Set objTIF = Nothing
ExtVar = "TIFF"
ProgVar = "MSPaper.Document"
Set objTIF = CreateObject("wscript.shell")
objTIF.regwrite "HKCR\." + ExtVar + "\" , ProgVar , "REG_SZ"
Set objTIF = Nothing

Grazie