Hvordan åpne en bestemt filtype i et bestemt prog?

[Rescudo]

Litt dårlig emnetittel

 

Altså, man har et filformat (*.abc) for eksempel. Når man åpner en fil av denne typen, skal den automatisk åpnes i programmet mitt. Hvordan kan man gjøre det? Sånn som det er nå, åpnes bare selve programmet når jeg åpner en .abc-fil, innholdet åpnes ikke.

[aadnk]

Når man assosierer en fil til de respektive programmene, vil Windows automatisk sende en streng relatert til hvilken fil som ble åpnet. Denne strengen kan hentes ved hjelp av kommandoene Command eller Command$ (avhengig om du vil ha det i Variant eller String). Hvis man åpner filen C:\Test.abc, får man denne strengen:

 

"C:\Test.abc"

 

Ergo trenger man ikke gjøre noe mer enn å teste om Command$ returnerer en streng, fjerne alle anførselstegn, og så åpne filen. Omtrent som dette:

 

Dim sCommand As String

sCommand = Replace(Command$, Chr(34), "")

If sCommand <> "" Then
   ' Kode til å åpne fil her
End If

 

Eller som dette:

 

 

Dim sCommand As String

sCommand = Command$

If sCommand <> "" Then
   sCommand = Mid(sCommand, 2, Len(sCommand) - 1)
   ' Kode til å åpne fil her
End If