Ισχύει το 260 maxpath, αλλά όχι στη unicode έκδοση.
To 260 αναφέρεται σε χαρακτήρες όχι σε bytes. Έτσι για κλήσεις unicode (2bytes κάθε χαρακτήρας) σε bytes είναι διπλάσιο!
Υπάρχει και το όριο στους 32767 χαρακτήρες (συνολικά μαζί με το όνομα αρχείου), αλλά πρέπει να υπάρχει στην αρχή το \\?\
Αυτό γίνεται σε VB6, αν χρησιμοποιήσουμε απευθείας το KERNEL32:
Declare Function CreateFile Lib "KERNEL32" Alias "CreateFileW" (ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Επίσης στη VB6 αν θέλω να ανοίξω το F$ το οποίο είναι σε UNICODE, με την Open, την δική της εντολή το μετατρέπω σε DosPath
Open GetDosPath(F$) For Binary Access Read As i
Private Declare Function GetShortPathName Lib "KERNEL32" Alias _
"GetShortPathNameW" (ByVal lpszLongPath As Long, _
ByVal lpszShortPath As Long, ByVal cchBuffer As Long) As Long
Public Function GetDosPath(LongPath As String) As String
Dim s As String
Dim i As Long
Dim PathLength As Long
i = Len(LongPath) * 2 + 2
s = String(1024, 0)
PathLength = GetShortPathName(StrPtr(LongPath), StrPtr(s), i)
GetDosPath = Left$(s, PathLength)
End Function
Η GetDosPath αν δεν υπάρχει το αρχείο γυρνάει κενό. Έτσι αν θέλω να φτιάξω ένα νέο αρχείο χρησιμοποιώ την createfile του Kernel32.
Παίζει και σε Windows 64.
Με τον παραπάνω τρόπο μπορώ να έχω ότι χαρακτήρες θέλω, ακόμα και αραβικά.
Αυτό είναι το κανονικό path
c:\users\person\appdata\roaming\microsoft\windows\printer shortcuts\
Και αυτό το shortpath, δείτε ότι βάζει ~1 με αυτό το τρόπο κόβει το όνομα.
c:\users\person\appdata\roaming\MICROS~1\windows\PRINTE~1\
