Open forBinary Access Read virker kun med hardcode

Hej.

Det er sikkert et problem med stien.  Hvis din kildetekst ikke er kopileret endnu, vil pointeren ikke nødvendigvis stå på den mappe, hvor kildeteksten ligger. 

Kopilér kildeteksten og indsæt App.Path og backslash foran filnavnet (variablen, der indeholder filnavnet).

M.v.h. Jørn

Open """ & sFile & """  For Binary Access Read As #ifreefile

hej jørn

tror ikke det er problemet da jeg ikke bruger App.Path

kabbak - Stadig samme felj

Open Chr(34) & sFile & Chr(34)  For Binary Access Read As #ifreefile
den burde være det samme som den anden.

Jeg mener at fejlen er, at du har mellemrum i stien til filen.

har prøvet det du skriver og at bruge trim men stadig sammen fejl.
Open Chr(34) & Trim(sFile) & Chr(34) For Binary Access Read As #ifreefile

prøv at lave en test for at se hvad der står i den.. Det kan godt være der er et Chr(0) men det kan man ikke se hvis man bruger en TextBox derfor brug Me.Print..

Private Sub SendData(sFile As String)
  Me.AutoRedraw = True
  Me.Print sFile ' Udskriver på Form
End Sub

burde min Trim ikke fjerne mellemrum?

Jo men ikke Chr(0)

og den fjerner kun mellemrum først og sidst i en string.. altså ikke "noget      noget"

Ja.. det her får jeg ud hvis jeg skriver det til en txt fil:
c:\test1.txt                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      c:\test2.txt                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
lidt svært at se .. men er meget mellemrum i .. hvordan fjerne jeg dette?

sådan:
  filen = CStr(sFile)

    Open Trim(filen) For Binary Access Read As #ifreefile

Ja ellers skal du bare lave din egen trim..

hvis jeg ikke har fået alle tegn med.. kan du selv tilføje dem..


Public Function MyTrim(strText As String) As String
Dim i As Integer
Dim strOne As String
Dim strOut As String
  For i = 1 To Len(strText)
    strOne = Mid$(strText, i, 1)
    Select Case LCase$(strOne)
          Case "a" To "z", "0" To "9", "æ", "ø", "å", " "
            strOut = (strOut & strOne)
          Case ":", "\", "/", "-", "_", ".", ",", "'", "~", "#"
            strOut = (strOut & strOne)
          Case "(", ")", "[", "]", "{", "}"
            strOut = (strOut & strOne)
    End Select
  Next
  MyTrim = Trim$(strOut)
End Function