zehdasilva

muito obrigado pela ajuda cara!!!... agora meu programa está funcionando corretamente graças a você e a Deus!!!...

obrigado... consegui me virar com esse codigo que você me mandou... mais uma duvida: como que faço para identificar o diretorio onde se localiza o aplicativo que eu estou fazendo... App.Dir??? mais outra duvida :) eu preciso que o programa execute um aplicativo numa subpasta do diretorio escolhido no FrmBrowseAccount. diretorio do executavel: Dir1.path & "\subdir1\editor.exe" valeu!!!

obrigado... eu so uma mula... Mas agora eu preciso que ele copie um arquivo que esta na pasta escolhida pelo usuario em otro form. Veja o codigo: São dois forms... um seleciona a pasta e subpastas onde vai ser copiado o arquivo... E no outro eu preciso que ele selecione o arquivo. ou o diretorio onde está o arquivo... Tipo no form 1 ele seleciona a pasta onde está a subpastas onde vai ser copiado o arquivo (selecionado em outro form) Eu preciso que ele copie um arquivo chamado "clientregistry.blob" (selecionado no form 2) para um subdiretorio de uma pasta selecionado em outro form... Resumo Form1 - selecionar o diretorio onde está o arquivo "clientregistry.blob" Form2 - seleciona a pasta onde está localizado os subdiretorios... Objetivo: copiar o arquivo "clientregistry.blob" para a uma subpasta escolhida no form2. você entendeu??? Private Sub ImgAcceptIco_Click() On Error GoTo filenotfound filenotfound: If Err.Number = "53" Then MsgBox "ClientRegistry not found", vbExclamation, "File not Found" End If FileCopy "\clientregistry.blob", FrmBrowseAccount.Dir1.Path + ("\subdir1") SaveSetting "NeoSteam.exe", "ClientRegistryDirectory", "directory", Dir1.Path Unload Me End Sub valeu!!!....

Obrigado... mas o problema continua... eu testei isso que você disse acima... mas não acontece nada... (talvez eu tenha que apagar tdas informações já salvas por esse aplicativo). E testei também colocar ao invés de App.Path, Dir1.Path... nenhum quiz funcionar... Private Sub Form_Load() Directory = GetSetting("NeoSteam.exe", "Directory", "steamaccount", App.Path) Dir1.Path = Directoty End Sub Private Sub ImgAcceptIco_Click() SaveSetting "NeoSteam.exe", "Directory", "steamaccount", Dir1.Path Unload Me End Sub O erro persiste!!! Onde ele esta???!!!.... Obrigado...

Mas quem iria definir o diretorio do objeto Dir1 era o usuario... o que que eu faço enquanto o usuario não define o diretorio???? Private Sub Form_Load() GetSetting "NeoSteam.exe", "Directory", "steamaccount", App.Path - aqui eu coloquei pra ser o diretorio pardrão do executável enquanto o usuario não o definir... End Sub Private Sub ImgAcceptIco_Click() SaveSetting "NeoSteam.exe", "Directory", "steamaccount", Dir1.Path Unload Me End Sub Continua não acontecendo nada!!! Onde está o erro???? valeu!!!

ola eu preciso que alguém me explique como que faço pra salva o diretorio escolhido por um usuario... tipo eu fiz o seguinte... Private Sub Form_Load() GetSetting "NeoSteam.exe", "Directory", "steamaccount", "" End Sub (Isso acontece na hora que o usuario abre o form) Private Sub ImgAcceptIco_Click() SaveSetting "NeoSteam.exe", "Directory", "steamaccount", "Dir1.Path" Unload Me End Sub (Isso acontece na hora que o usuario clica numa imagem (de um botão)) Mas num acontece nada... na hora que eu abro o form ele volta na mesma pasta onde está localizado o aplicativo... será que alguém pode me ajuda???? valeu!!!