Nom 8.3 ne fonctionne plus :(

Question

Bonjour,

mon script ne veut plus fonctionner depuis Windows 10 je crois :

    Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Int32) As Int32

    Public Function GetShortPath(ByVal strPath As String) As String
        Dim lngRes As Int32, strBuffer As String
        strBuffer = Strings.Space(255)
        lngRes = GetShortPathName(strPath, strBuffer, 254)
        GetShortPath = Strings.Left(strBuffer, lngRes)
    End Function

Merci si vous avez une solution. On a encore besoin de ça même si c'est du 16 bits.

Answer 1

"ne veut plus fonctionner "

Qu'est-ce qui ne fonctionne pas ?

Code d'erreur ?

Message d'erreur ?

Exemple reproductible ?

J'ai fait un test sous Windows 10 avec VS 2015 et ça fonctionne très bien.

Answer 2

Bonjour, eh bien pas de message d'erreur mais le nom n'est pas en 8.3. Il est en nom long.

Ca ne marche que si le fichier est en C:. Or de nos jours, on a pas qu'un seul disque dans nos machines.

Answer 3

J'ai fait des tests sur Windows 10 et c'est à cause de la valeur :

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem

NtfsDisable8dot3NameCreation

Pour que ça fonctionne, il faut que je la mette à 0, mais ça ne fonctionnera que pour les nouveaux fichiers créés avec cette valeur à 0 

Answer 4

Merci, il n'y a pas d'autres solutions ?

Answer 5

Merci, il n'y a pas d'autres solutions ?

Pas vraiment

Il y a des articles qui en parlent, comme NTFS 8.3 short names – solving the issues

Answer 6

Bon en fait, ça ne marche que pour les fichiers situés en C:. Je fichier que je testais était en D:.