|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Arquivos e programa no RESOURSE
|
 |
|
|
|
Postada em 2/2/2005 por Romero
Com Esse exemplo vc pode colocar um arquivo no Resurse e extrai-lo quando Nescessário.
Para isso depois de incluir o arquivo no RES Coloque o código abaixo onde nescessário.
'------------------------------------------------------------------
Dim sndBuff As String
Dim Arq As Integer
sndBuff = StrConv(LoadResData(101, "CUSTOM"), vbUnicode) 'CUSTOM é a pasta
Arq = FreeFile
Open "C:Extrator de Icone.exe" For Binary As #Arq
Put #Arq, , sndBuff
Close #Arq
Shell "C:Extrator de Icone.exe", vbNormalFocus
'------------------------------------------------------------------
|
|
|
|
|
