Copyfile über 260 Zeichen

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Dancger.

    Copyfile über 260 Zeichen

    Huhuuu :)

    Habe folgendes problem ich kopiere einige Dateien und der springt des öffteren in die Exseption mit der Meldung
    das der Dateiname Länger als 260 Zeichen ist...

    My.Computer.FileSystem.CopyFile(copyquelle & filee, copyziel & filee, True)

    ntfs unterstüzt eig. doch mehr als 260 zeichen dachte ich :o ?

    muss man da noch einen parameter setzen oda so?

    danke für eure hilfe :)

    lg Datsspeed

    Auszug aus Naming Files, Paths, and Namespaces
    Note
    File I/O functions in the Windows API convert "/" to "\" as part of converting the name to an NT-style name, except when using the "\\?\" prefix as detailed in the following sections.

    The Windows API has many functions that also have Unicode versions to permit an extended-length path for a maximum total path length of 32,767 characters. This type of path is composed of components separated by backslashes, each up to the value returned in the lpMaximumComponentLength parameter of the GetVolumeInformation function (this value is commonly 255 characters). To specify an extended-length path, use the "\\?\" prefix. For example, "\\?\D:\very long path".

    Note The maximum path of 32,767 characters is approximate, because the "\\?\" prefix may be expanded to a longer string by the system at run time, and this expansion applies to the total length.

    nutze den parameter nun und nun sagt er ich nutze ein illegals zeichen ...

    My.Computer.FileSystem.CopyFile(copyquelle & filee, "\\?\" & copyziel & filee, True)

    da kommt die fehler meldung : Illegales Zeichen im Pfad.

    hab ich die antwort jetzt falsch aufgenommen ?
    lg

    Ich bin mir nicht ganz sicher, aber ich glaube, die Copy-Methoden von .NET kommen damit nicht zurecht. Du musst eine API-Funktion verwenden. Wenn ich richtig in Erinnerung habe, heisst die Funktion CopyFileEx. Also Nach CopyFileEx + API suchen

    EDIT: Link zu CopyFileEx

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xtts02“ ()

    datsspeed schrieb:

    nutze den parameter nun und nun sagt er ich nutze ein illegals zeichen ...
    My.Computer.FileSystem.CopyFile(copyquelle & filee, "\\?\" & copyziel & filee, True)

    Fargezeichen sind illegale Zeichen^^

    Btw: Versuch ma einen Ordner mit "?" zu erstellen..

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    datsspeed schrieb:

    Das ist mir bewusst Dancger...

    Toll, für mich hat das jedenfalls nach einer Frage getönt und nicht nach "Das ist mir bewusst"..

    datsspeed schrieb:

    ich glaub du hast nich wirklich mitbekommen um was es hier geht ...

    Ich denke, du willst ein File kopieren jedoch ist dein Pfad länger als 256 Zeichen..

    Wenn du in deinem Pfad mehr Zeichen als 256 (NTFS Maximale Pfadlänge) musst du den letzten Ordner mappen (Netzlaufwerk erstellen) und dann hast du wieder 256 (- Abzug des Netzlaufwerknamens)..

    Für dich:
    - If Abfrage ob der Pfad länger als 256 Zeichen ist
    - Wenn ja, den letzmöglichen Pfad mappen
    - File kopieren
    - Map wieder löschen

    Ich hoffe diese Antwort entspricht deiner Vorstellung.

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Ich mappe immer mit diesem Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. ' Netzlaufwerk verbinden/trenne (ohne Windows-Dialog)
    4. Private Declare Function WNetAddConnection Lib "mpr.dll" _
    5. Alias "WNetAddConnectionA" ( _
    6. ByVal lpszNetPath As String, _
    7. ByVal lpszPassword As String, _
    8. ByVal lpszLocalName As String) As Long
    10. Private Declare Function WNetCancelConnection Lib "mpr.dll" _
    11. Alias "WNetCancelConnectionA" ( _
    12. ByVal lpszName As String, _
    13. ByVal bForce As Long) As Long
    15. ' Fehler-/Rückgabe-Konstanten
    16. Private Const WN_SUCCESS = 0
    17. Private Const WN_NET_ERROR = 2
    18. Private Const WN_BAD_PASSWORD = 6
    20. ' Netzlaufwerk verbinden
    21. Public Function Drive_Connect(ByVal LocalDrive As String, _
    22. ByVal NetworkPath As String, _
    23. Optional ByVal ShowError As Boolean = False) As Boolean
    25. Dim lResult As Long
    27. lResult = WNetAddConnection(NetworkPath, _
    28. vbNullString, LocalDrive)
    30. If ShowError And lResult <> WN_SUCCESS Then
    31. If lResult = WN_NET_ERROR Then
    32. MsgBox("Netzwerkfehler!")
    33. ElseIf lResult = WN_BAD_PASSWORD Then
    34. MsgBox("Ungültiges Passwort!")
    35. Else
    36. MsgBox("Unbekannter Fehler")
    37. End If
    38. End If
    40. Drive_Connect = (lResult = WN_SUCCESS)
    41. End Function
    43. ' Netzlaufwerk trennen
    44. Private Function Drive_Disconnect( _
    45. ByVal LocalDrive As String, _
    46. Optional ByVal ShowError As Boolean = False) As Boolean
    48. Dim lResult As Long
    50. lResult = WNetCancelConnection(LocalDrive, True)
    52. If ShowError And lResult <> WN_SUCCESS Then
    53. If lResult = WN_NET_ERROR Then
    54. MsgBox("Netzwerkfehler!")
    55. ElseIf lResult = WN_BAD_PASSWORD Then
    56. MsgBox("Ungültiges Passwort!")
    57. Else
    58. MsgBox("Unbekannter Fehler")
    59. End If
    60. End If
    62. Drive_Disconnect = (lResult = WN_SUCCESS)
    63. End Function
    66. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    67. ' Netzlaufwerk verbinden
    68. ' K: (lokal) mit \\SERVER\C
    69. ' (evtl. Fehler anzeigen)
    70. Drive_Connect("L:", "\\localhost\D$\UserData\******\My Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\obj", True)
    72. End Sub
    74. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    76. ' Netzlaufwerk trennen (K:)
    77. ' (evtl. Fehler unterdrücken)
    78. Drive_Disconnect("L:", False)
    79. End Sub
    80. End Class

    Bei mir funktioniert's.

    Danach kannst du einfach deinen weiteren Pfad mit "L:\DeineWeiterenOrdner" zusammensetzen..^^

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...