Åben txt fil sammen med exe.

Altså lige som %1 i dos-dagene
Command$ burde virke, altså

mitprogram.exe davs

i din kode
text1.text = command$

http://www.eksperten.dk/spm/291884

hvad er problemet, koden er på siden: http://www.eksperten.dk/spm/291884

(Det virker først når du har lavet dit program til exe-file)

Private Sub Form_Load()
Dim intFree As Integer
Dim strPath As String
Dim strTekst As String

'Henter den stig som er skrævet efter exe-filen
'eks: C:\Project1.exe "C:\autoexec.bat"
'Command$ er = "C:\autoexec.bat"
strPath = Command$
 
  'Tjækker om der er " i bægge ænder
  If Right(strPath, 1) = Chr$(34) And Left(strPath, 1) = Chr$(34) Then
    'Fjærner " i bægge ænder
    strPath = Mid$(strPath, 2, Len(strPath) - 2)
  End If
  'Tjækker om filen ligger på denne stig
  If Dir(strPath) > "" Then
    'Finder free file nummer
    intFree = FreeFile
    'Åbner filen
    Open strPath For Binary As #intFree
      'laver filens lengten i space til strTekst
      strTekst = Space(LOF(intFree))
      'Henter den data som står i filen
      Get #intFree, 1, strTekst
      'Lukker filen
    Close #intFree
  End If
'Text1 kan kun indholde 61000 tegn, så derfor brug Mid$
Text1.Text = Mid$(strTekst, 1, 61000)
End Sub

Problemet er at jeg ikke ønsker at syntax skal være med "fil", men den skal være eks. eks: C:\Project1.exe autoexec.bat

prøv at skrive: C:\Project1.exe autoexec.bat i menu-> start-> kør og se om det ikke virker. (Hvis du bruger den kode jeg har lavet.)

Hej sjh.

Tjaaa, det virker jo KANON, sååå TEST for man TALER, sorry, jeg tildeler dig dine points nu.

TAK for hjælpen.

Mvh.

Christian_h

selv tak ;-)