des fichiers txt,js,vbs,bat,etc...... mais pas les exe, pourquoi?


voici mon exemple en cours (fait en 2min45 donc erreurs possibles!!)
Code : Tout sélectionner
PJ_$ = OpenFileRequester("Recherche Fichier",PJ_$, "Tous les fichiers (*.*)|*.*",0)
;tt=FileSize(PJ_$)
Path_$=GetPathPart(PJ_$)
File_$=GetFilePart(PJ_$)
ID_file = ReadFile(#PB_Any, PJ_$)
*MemoryID = AllocateMemory(FileSize(PJ_$))
If ReadData(ID_file, *MemoryID, MemorySize(*MemoryID))
CreateFile(1,Path_$+"Remake "+File_$)
WriteData(1,*MemoryID,MemoryStringLength(*MemoryID))
CloseFile(1)
EndIf
