ARMAZENAR ARQUIVO NO RESOURCE
BOA TARDE!
pessoal, eu tenho um arquivo texto de 150 KB que preciso criar na maquina do meu usuario caso não exista. atualmente eu crio uma procedure enorme armazenando linha a linha em uma string e depois usando o metodo OPEN e PRINT e CLOSE crio o txt...
queria usar um metodo mais apurado desta vez, tem como armazenar num arquivo RES e recriar este arquivo depois?
pessoal, eu tenho um arquivo texto de 150 KB que preciso criar na maquina do meu usuario caso não exista. atualmente eu crio uma procedure enorme armazenando linha a linha em uma string e depois usando o metodo OPEN e PRINT e CLOSE crio o txt...
queria usar um metodo mais apurado desta vez, tem como armazenar num arquivo RES e recriar este arquivo depois?
Ok, para fazeres isso e simples, ve so:
- Activa o Resource Editor.
(Add-Ins -> Add-Ins Manager)
- Add Custom Resource (aki seleccionas o file k keres)
E na execuçao do codigo usas esta funçao pa o sacares:
Public Sub LoadRes(NumNAME As Integer, Path As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(Path) = [Ô][Ô] Then
myArray = LoadResData(NumNAME, [Ô]CUSTOM[Ô])
myFile = FreeFile
Open Path For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub
Um exemplo:
Private Sub Command1_Click()
call LoadRes(101,[Ô]C:\virus.exe[Ô])
End Sub
ve se funciona
- Activa o Resource Editor.
(Add-Ins -> Add-Ins Manager)
- Add Custom Resource (aki seleccionas o file k keres)
E na execuçao do codigo usas esta funçao pa o sacares:
Public Sub LoadRes(NumNAME As Integer, Path As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(Path) = [Ô][Ô] Then
myArray = LoadResData(NumNAME, [Ô]CUSTOM[Ô])
myFile = FreeFile
Open Path For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub
Um exemplo:
Private Sub Command1_Click()
call LoadRes(101,[Ô]C:\virus.exe[Ô])
End Sub
ve se funciona
Tópico encerrado , respostas não são mais permitidas