åbne fil i det rigtige program

Hej Eksperter

Jeg har et script hvor jeg gerne vil åbne en fil hvis den ligger lokalt, men windows skal selv finde ud af hvilket program filen skal åbnes i. eks. Hvis det er en .doc fil skal filen åbnes i word.

Function OpenFile(DocumentInfo)
    dim FileName
    dim FileDate
    dim FilArray               
   
    FilArray = split(DocumentInfo,\",\")
   
    FileName = FilArray(0)
    FileDate = FilArray(1)
       
    ctlFileControl1.CheckFile FileName, FileDate
   
    if ctlFileControl1.CheckFilePresent then
        if ctlFileControl1.CheckFileUpdated then
            alert(\"Dokumentet på serveren er ændret\")
        else           
            alert(ctlFileControl1.ProjektPath & \"\\\" & FileName) \' Stien til filen med typeangivelse (.doc)
        end if
    else
        alert(\"Du har ikke dokumentet liggende lokalt\")
    end if
   
End Function