Har ett problem som dyker upp när jag ska öppna ett program jag gjort med en fil (tex en bildfil). Vet att hela adressen hamnar i Command$ men får ändå upp ett felmeddelande att den inte hittar filvägen. Hej,Command$ - öppna fil med eget program...
Att filvägen är rätt vet jag eftersom jag lagt form1.caption= comman$
Här är program koden:
----------------------------------------------------------------------------------
Dim MinFil As String
Option Explicit
Private Sub Form_Load()
On Error GoTo ErrHandler
If Command$ <> "" Then
MinFil = Command$
Form1.Caption = MinFil
End If
Picture1.Picture = LoadPicture(MinFil)
Exit Sub
ErrHandler:
MsgBox Err.Description
End Sub
----------------------------------------------------------------------------------
Var ligger felet jag hittar det inte...
//Stefan Beijer Sv: Command$ - öppna fil med eget program...
<br><br>
Orsaken till att du får detta felmeddelande är att strängen som du får från Command-objektet är omgärdat av två dubbelfnuttar (chr$(34)).
<br><br>
Ta bort dessa enl följande...
<code>
Picture1.Picture = LoadPicture(Replace(MinFil, Chr$(34), ""))
</code>
eller
<code>
Picture1.Picture = LoadPicture(Mid$(MinFil, 2, Len(MinFil) - 2))
</code>
<br>
mvh /Thomas