1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Comment copier plusieurs gros fichiers en & seul ?

Résolu
cs_SoZI Messages postés 6 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 16 octobre 2007 - 13 août 2006 à 16:10
cs_SoZI Messages postés 6 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 16 octobre 2007 - 9 oct. 2007 à 19:42
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
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
13 août 2006 à 16:26
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 !
3
Réponse 2 / 3
BruNews Messages postés 21041 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 19
13 août 2006 à 17:47
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++
3
Réponse 3 / 3
cs_SoZI Messages postés 6 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 16 octobre 2007
9 oct. 2007 à 19:42
Je vous remercie pour vos réponses

--(sZ)
0
Rejoignez-nous