texto - leer archivo txt vb6

vb6 Abrir archivo para adjuntar problema Ruta no encontrada

Question

Open  App.Path & "/Folder/" & str(0) For Output

Parece que no se encuentra un camino, sin embargo, si directamente antes de eso lo hago

MsgBox App.Path & "/Folder/" & str(0)

Proporciona el directorio / nombre de archivo correcto que quiero

y si reemplazo esa cadena con la ruta directa entre comillas, funciona bien, pero eso no será muy bueno para otros usuarios de mi aplicación :( ¿Alguien sabe por qué esto no funciona?

Answer 1

Puede abrir un archivo que no existe. Lo intenté con:

  Open "c:/temp/test.txt" & Str(0) For Output As #1
  Close #1

Cuando se ejecutó creó c: / temp / test.txt 0

Tenga en cuenta que agregué "As # 1" a la instrucción Open y taht Str (0) agrega un espacio inicial para el signo menos opcional (CStr (0) no agrega un espacio inicial)

Answer 2

Comentario: puede abrir un archivo que no existe.

Solo es verdadero si su carpeta existe. Si su carpeta y archivo no existen, dará un error de "ruta no encontrada".

Answer 3

Aquí algo fácil que hice para ti:

Function CreateLog(Destination As String, MyMessage As String)
    Dim PathToCreate, FolderPath, FileName As String

    ''Check for Unnecessary Spaces
    Destination = Trim(Destination)
    FolderStr = Destination

    ''Gather only FolderPath of Destination
    Do
        FolderStr = Mid(FolderStr, 1, Len(FolderStr) - 1)
    Loop Until Right(FolderStr, 1) = "/" Or Len(FolderStr) < 1

    ''Gather only FileName
    FileName = Mid(Destination, Len(FolderStr) + 1, Len(Destination) - Len(FolderStr))

    ''If the path does not exist than create it
    ''Recursive approach
    For Each Folder In Split(FolderStr, "/")
        If InStr(1, Folder, ":") = 0 Then
            PathToCreate = PathToCreate & "/" & Folder
        Else
            PathToCreate = Folder
        End If
        If fso.FolderExists(PathToCreate) = False And PathToCreate <> "" Then
            fso.CreateFolder PathToCreate
        End If
    Next

    ''Open file and add the message in it
    Open PathToCreate & "/" & FileName & ".txt" For Append As #1
    Print #1, MyMessage
    Close #1

End Function

Uso:

CreateLog "D:/Test/NewTest/NewFolder/AnotherFolder/atlastthefile.abcdefg", "Hello!"

No importa qué fileExtention dado causará mal agregar ".txt" de todos modos ..