Discussion :

[*Gold*]

Bonjour,

J'ai un problème pour remplacer mon code fait en fileclose, fileopen en IO.File.ReadAllBytes.

Voici le code en fileopen, fileclose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Const filesplit = "@123456@"
Dim file1, filezb4() As String
 
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
file1 = Space(LOF(1))
FileGet(1, file1)
FileClose(1)
filezb4 = Split(file1, filesplit)

et voici mon code en IOBuilder :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Const filesplit = "@123456@"
Dim file1, filezb4() As String
 
file1 = IO.File.ReadAllBytes(Application.ExecutablePath)
filezb4 = Split(file1, filesplit)

Une erreur est générée sur IO.File.ReadAllBytes(Application.ExecutablePath).

Impossible de convertir une valeur de type 'Tableau à 1 dimension(s) de Byte' en 'String'

J'ai beau convertir mais rien n'y fait, ça plante...

Merci de votre aide.