1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Comment copier plusieurs gros fichiers en & seul ? [Résolu]

Signaler
Messages postés
6
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
16 octobre 2007
 -
Messages postés
6
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
16 octobre 2007
 -
Bonjour a tous, j'ai un petit probleme, je souhaiterai copier plusieurs
fichiers volumineux qui ont tous un nom et une taille différente, le
tout dans un gros fichier unique.


Quelqu'un aurai t'il une idée ? car la fonction filecopy me renvoie une erreure.


tout d'abord il faut savoir que :

Textbox2.text = "c:\iso1\fichier1.iso"

Textbox3.text = "c:\iso1\fichier2.iso"

... et ainsi de suite pour les valeurs text des Textbox de 2 à 6.

et Textbox7.text="c:\iso2"



Voila mon code:


Dim Source1 As String

Dim Destination1 As String
        Source1$ = TextBox2.Text + " "  + TextBox3.Text + " " +
TextBox4.Text + " " + TextBox5.Text + " " + TextBox6.Text +
" "

        Destination1$ = TextBox7.Text & "\image.iso"

        MsgBox("Copie des fichiers : " + Fichiers1, MsgBoxStyle.Information)

        MsgBox("En Iso dans le répertoire : " + Destination1, MsgBoxStyle.Information)
        FileCopy(Source1$, Destination1$)

End Sub


comment peu on copier ces fichiers en un seul ? et non juste les copier indépendament dans un répertoire.

Avis a toute la population ;)

Merci

--(sZ)

3 réponses

Réponse 1 / 3
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
 116
La fonction FileCopy ne permet pas de concaténer des fichiers entre eux !

J'avais déposé une source il y a quelques années qui permettait de faire cà, regarde dans mes sources, tu devrais la trouver.

Par contre, attention à la limite de taille d'un fichier : le fichier ne doit pas exéder 4 Go sur un système NTFS !
Réponse 2 / 3
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
 27
Dim hFile As Long
Dim hi As Long
hFile = CreateFile("a.dat", GENERIC_WRITE, 0, ByVal 0&, OPEN_ALWAYS, 0, 0)
If hFile <> INVALID_HANDLE_VALUE Then
  hi = 2
  SetFilePointer hFile, 0, hi, FILE_CURRENT
  SetEndOfFile hFile
  CloseHandle hFile
End If

et voila un fichier de 8 Go sur mon NTFS.

ciao...
BruNews, MVP VC++
Réponse 3 / 3
Messages postés
6
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
16 octobre 2007
Je vous remercie pour vos réponses

--(sZ)
Répondre Posez votre question