Copier Plusieurs fichiers

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
ChaudEf
Messages : 179
Inscription : dim. 27/déc./2015 17:02
Localisation : Strasbourg

Copier Plusieurs fichiers

Message par ChaudEf »

J'ai ecrit un code, qui inclue plusieurs fichiers en data, puis les depose sur l'ordinateur.
Je voulais raccourcir le chemin, donc j'ai teste un truc, qui pourrait etre tres utile, seulement... ca plante :x :x

Code : Tout sélectionner

Procedure CreateIncludedFiles(FileName.s, *BinStart, *BinEnd)
	Define a
	If FileSize(FileName) = -1
		Protected id.l = CreateFile(#PB_Any, FileName)
		If id
			a = WriteData(id, *BinStart, *BinEnd - *BinStart)
			CloseFile(id)
		EndIf
	EndIf
	ProcedureReturn a
EndProcedure


; Structure fileBinary
; 	debut.l
; 	fin.l
; 	nom.s
; EndStructure
; 
; NewList file.fileBinary()
; AddElement(file()) : file()\debut = ?a_debut : AddElement(file()) : file()\fin = ?a_fin : AddElement(file()) : file()\nom = "a1.jpg"
; AddElement(file()) : file()\debut = ?b_debut : AddElement(file()) : file()\fin = ?b_fin : AddElement(file()) : file()\nom = "b1.jpg"
; AddElement(file()) : file()\debut = ?c_debut : AddElement(file()) : file()\fin = ?c_fin : AddElement(file()) : file()\nom = "c1.jpg"
; 
; ForEach file()
; 	CreateIncludedFiles(file()\nom, file()\debut, file()\fin)
; Next
Define.s files, file

files = "a b c"
For i = 1 To CountString(files, " ") + 1
	file = StringField(files, i, " ")
	CreateIncludedFiles(file + ".jpg", ?file + "_debut", ?file + "_fin")
Next

;{- Data
DataSection	
	a_debut:
	IncludeBinary "a.jpg": a_fin:
	b_debut:
	IncludeBinary "b.jpg": b_fin:
	c_debut:
	IncludeBinary "c.jpg": c_fin:
EndDataSection
;}
Je me demande si c'est possible de combiner des pointeurs avec du texte, est-ce ca l'erreur?
Windows 10 x64 -- Purebasic 5.70 LTS x86