API StrFormatByteSizeW ou StrFormatByteSize ne renvoie rien

Version imprimable

Bonjour à tous,

J'utilise l'API

Code:

1
2
3
4
5
6
7
8
9
10
Private Declare PtrSafe Function StrFormatByteSizeW Lib "shlwapi" 
                                                     (ByVal qdwLow As Long,_
                                                      ByVal qdwHigh As Long,_
                                                      pwszBuf As Any,_
                                                      ByVal cchBuf As Long) As Long
 
Private Declare PtrSafe Function StrFormatByteSize Lib "shlwapi" Alias _
                        "StrFormatByteSizeA" (ByVal dw As Long, _
                                              ByVal pszBuf As String, _
                                              ByVal cchBuf As Long) As Long

Mais mon code

Code:

1
2
3
4
5
6
  sSize = Space$(30)
           ....
           If MatchSpec(WFD.cFileName, fp.sFileNameExt) Then
                     lSize = WFD.nFileSizeLow + WFD.nFileSizeHigh
                     Call StrFormatByteSizeW(lSize, ByVal StrPtr(sSize), 30)
                     Call StrFormatByteSize(lSize, ByVal StrPtr(sSize), 30)...

ne renvoie pas rien

Merci pour votre aide :pingoin2:

22/01/2017, 11h48
unparia

Bonjour
Le premier paramètre de ta première fonction est prévu pour être typé en LonLong
Bien que le type LongLong soit utilisé par l'application VBA elle-même (et j'en ai la preuve), il n'est pas utilisable en développement VBA.
Tu peux essayer (sans garantie du gouvernement) de lui substituer le type Currency

Le premier paramètre de ta deuxième fonction est prévu pour être typé en Dword !

EDIT : et tout ce tsoin-tsoin pourquoi ? Pour simplement mettre en forme un affichage de valeur !
Tu ne peux pas faire toi-même cette petite (vraiment petite) fonction en VBA ? Tu en es certain ?
22/01/2017, 13h57
informer

Si fait, j'ai ajouté une procédure de formatage mais c'était pour l'exercice...:aie:

On ne pourrait pas utiliser un type longPtr qui est un type longlong sous 64bits.
Merci encore unparia

Bonjour chez toi :pingoin2:

Citation:

On ne pourrait pas utiliser un type longPtr qui est un type longlong sous 64bits.

je n'en sais rien et ne vais pas perdre de temps à vérifier, alors qu'un simple calcul, y compris avec vba, fait la "chose" très facilement.

Je te propose de regarder ce que fait ce tout petit exemple, en lieu et place de ces fonctions de l'Api de Windows :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton1_Click() MsgBox affiche_joli(Range("A1").Value) End Sub Private Function affiche_joli(taille As Currency) As String Dim titi, titid, titio titi = Array("", "octets", "Kilo-octets", "Mega-octets", "Giga-octets", "Tera-octets") titid = Array(0, 0, 0, 0, 3, 3, 3, 6, 6, 6, 9, 9, 9, 12, 12, 12) titio = Array(1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5) affiche_joli = Format(taille / 10 ^ titid(VBA.Len(taille)), "##0.0#") & " " & titi(titio(VBA.Len(taille))) End Function
Fais varier A1 (mets-y des nombres entiers) et clique sur le bouton de commande. Tu verras.

Merci unparia mais j'avais celle-ci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Function FormatFileSize(ByVal lngFileSize As Long) As String
 
  Dim x  As Integer:      x = 0
  Dim Suffix As String:  Suffix = ""
  Dim Result As Single:  Result = lngFileSize
 
  Do Until Int(Result) < 1000
     x = x + 1
     Result = Result / 1024
  Loop
 
  Result = Round(Result, 2)
 
  Select Case x
         Case 0
              Suffix = "Bytes"
         Case 1 'KiloBytes
              Suffix = "KB"
         Case 2 'MegaBytes
              Suffix = "MB"
         Case 3 'GigaBytes
              Suffix = "GB"
         Case 4 'TeraBytes
              Suffix = "TB"
         Case 5 'PetaBytes
              Suffix = "PB"
         Case 6 'ExaBytes
              Suffix = "EB"
         Case 7 'ZettaBytes
              Suffix = "ZB"
         Case 8 'YottaBytes
              Suffix = "YB"
         Case Else
              Suffix = "Too big to compute :)"
  End Select
  FormatFileSize = Format(Result, "#,##0.00") & " " & Suffix
 
End Functionb

Ou celle-ci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function MEF_Octet_Short(lgValeur As Long) As String
'---------------------------------------------------------------------------------------
' Procédure : MEF_Octet_Short
' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
' Modif par : joe.levrai
'---------------------------------------------------------------------------------------
Dim tableau, i
    tableau = Array("Oct", "Ko", "Mo", "Go")  ' stockage des unités
 
    While (lgValeur / 1024 > 1) And i < UBound(tableau)  ' itération des divisions par 1024
        i = i + 1  ' décalage de l'unité
        lgValeur = lgValeur / 1024
    Wend
 
    MEF_Octet_Short = Format(Round(lgValeur), "#,##0.00") & " " & tableau(i)
 
End Function