USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
'------------------------------------------------------------------
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página