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 ..