CRÉER UN FICHIER DE TAILLE X, TRÈS RAPIDEMENT

Private Const CREATE_ALWAYS As Long = 2
Private Const FILE_BEGIN As Long = 0
Private Const GENERIC_WRITE As Long = &H40000000

Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByRef lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function SetEndOfFile Lib "kernel32.dll" (ByVal hFile As Long) As Long
Private Declare Function SetFilePointer Lib "kernel32.dll" (ByVal hFile As Long, ByVal lDistanceToMove As Long, ByRef lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long

Public Function CreateBigFile(ByRef vsFileName As String, ByVal vnSize As Variant) As Boolean
Dim hFile As Long
Dim nHigh As Long
Dim nLow As Long
Dim nTmp As Long
Const hFFFFFFFF = 4294967295#
Const h80000000 = 2147483648#
    hFile = CreateFile(vsFileName, GENERIC_WRITE, 0, ByVal 0&, CREATE_ALWAYS, 0, 0)
    If hFile <> -1 Then
        If CCur(vnSize) > hFFFFFFFF Then
            nHigh = Fix(vnSize / hFFFFFFFF)
            vnSize = vnSize - CCur(hFFFFFFFF * nHigh)
        End If

        If CCur(vnSize) > h80000000 Then
            nTmp = Fix(vnSize / h80000000)
            nLow = vnSize - h80000000 * nTmp

            nLow = nLow + nTmp * &H80000000
        Else
            nLow = CLng(vnSize)
        End If
    
        SetFilePointer hFile, nLow, nHigh, FILE_BEGIN
        SetEndOfFile hFile

        CreateBigFile = True
        CloseHandle hFile
    End If
End Function

Télécharger le zip

16 août 2007 09:40:44 :

Gestion des valeurs décimales

17 août 2007 13:24:14 :

Il y avait un bug lorsque la taille voulue était comprise entre 2Go et 4Go, en gros.

19 août 2007 22:31:31 :

Soucis avec les fichiers > 4 Go

• GESTION DE LISTES (FUSION, COMPARAISON, TRI...)
• VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE
• BESOIN DE SUGGESTIONS
• EXTRAIRE LE TEXTE DES FENETRES D'APPLICATIONS TIERCES (LISTBOX, LISTVIEW, TEXTBOXES, ...)
• RÉCUPÉREZ VOS OBJETS VIA GETOBJECT

• TITLE BAR, AJOUTEZ VOTRE BOUTTON DANS LA BARE DE TITRE DES FENETRE
• VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE
• CHANGEDESKTOP: CHANGEMENT DE L'APPARENCE DE LA LISTVIEW DU BUREAU WINDOWS
• SERVEUR OPC
• CLASSES TIMER (SANS MODULE)

• CRÉER UN FICHIER SITEMAP POUR GOOGLE EN TOUTE SIMPLICITÉ
• MULTI-ECRANS : NOMBRE, COORDONNÉES, ZONES DE TRAVAIL ...
• CREER UN DOSSIER (AVEC SES DOSSIERS PARENTS)
• CREER BASE DE DONNER ACCESS ET TABLE
• COMPOSANTS TEXTBOX À TAILLE DE POLICE VARIABLE ET TEXTBOX À LARGEUR VARIABLE AUTOMATIQUES POUR VB2005