vb6 Datei Öffnen Zum Anhängen Ausgabe Pfad Nicht Gefunden

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

Scheint ein Pfad nicht gefunden-aber wenn direkt vor, dass ich

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

Er Liefert das richtige Verzeichnis/Dateinamen, ich möchte

und wenn ich ersetzen Sie die Zeichenfolge mit dem direkten Pfad in Anführungszeichen setzen, es funktioniert jedoch nicht sehr gut für andere Benutzer meiner app: - ( weiss Jemand warum das nicht funktioniert?

Warum war dies eine community-wiki?
Weizen , Er wollte wissen was community-wiki und gedrückt;)

InformationsquelleAutor |

  1. 2

    Können Sie eine Datei öffnen, die nicht existiert. Ich habe es versucht mit:

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

    Wenn es lief erstellt c:\temp\test.txt 0

    Beachten Sie, dass ich Hinzugefügt "#1" zu der Open-Anweisung und taht Str(0) fügt ein führendes Leerzeichen für das optionale minus-Zeichen (CStr(0) doens ' T fügen Sie ein Leerzeichen)

    InformationsquelleAutor

  2. 2

    Kommentar: Sie können eine Datei öffnen, die nicht existiert.

    Nur wahr, wenn ein Ordner vorhanden ist. Wenn beide Ihre Ordner und die Datei nicht vorhanden ist, gebe es einen "Pfad nicht gefunden" - Fehler.

    InformationsquelleAutor

  3. 0

    Hier mit etwas einfachem an, die ich für Sie gemacht:

    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

    Verwendung:

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

    Egal, was fileExtention gegeben dazu führen, krank hinzufügen ".txt" anyways..

    InformationsquelleAutor

Schreibe einen Kommentar