MRMB

Situação de erro resolvida. Nas propriedades do projeto em "Security" desmarquei a opção "Enable ClickOnce security setting" e compilei. Após compilar verifiquei que foi gerado/atualizado o arquivo app.manifest. Marquei a opção "Enable ClickOnce security setting" novamente build/save. E passou a funcionar o processo de execução no debug/release. Espero que a dica acima possa ajudar outra pessoa.

Srs., Bom Dia! Estou tentando executar o meu projeto a alguns dias por dentro do VS 2013 (Debug/Release) e ocorre erro de "permissão". Exemplo: Na linha de código abaixo causa o problema. string FileName = String.Format("{0}\\{1}", Application.StartupPath, "Teste.Ini"); Caso alguém tiver alguma dica para corrigir o problema seria bem vinda. Observações - Consigo realizar o Build com sucesso e executar o programa normalmente fora do VS 2013. - Computador foi formatado recentemente. Acabo de instalar o VS 2013/componentes e estou tentando realizar a primeira execução pelo VS 2013. Obrigado.

Srs. Boa Tarde! Gostaria de saber se alguém conhece uma forma de ofuscar os dados de uma DLL criada no Microsoft Visual C++ 6.0. Obrigado.

Verifica os exemplos abaixo... http://stackoverflow.com/questions/5517217/sending-an-email-through-vb6 http://pt.kioskea.net/faq/14545-vb6-vba-envio-de-e-mail-com-o-objeto-cdo Abraço.

Bom Dia! Minha situação é a seguinte: Tenho uma aplicação WEB que funciona corretamente no IE 9, 10 e 11 e não funciona no IE 8. Por acaso, teria uma maneira de criar uma “aplicação embarcada” simulando uma versão mais recente do IE para executar em um computador com versão mais antiga (Windows XP/IE 8)? Obrigado.

Marcos, Verifique o link abaixo. Talvez possa ajudar. http://www.vb-helper.com/howto_download_url_to_file.html Utilizo para IE 7, 8 e 9 com sucesso.

Pessoal, Alguém teria um exemplo em VB6 de como utilizar expressão regular/RegEX para validar DDD telefone e tel. celular. Desde já agradeço a atenção!

Pessoal, Consegui identificar se usuário tem controle total da pasta. No caso executo um método que cria um diretório, um arquivo, leio/escrevo no arquivo e excluo o diretório. Caso execute todo o processo o usuário tem permissão na pasta e retorno verdadeiro na função. Caso ocorra algum erro no tratamento de erro verifico se o código de erro é de permissão negado e retorno falso. No meu caso esta funcionando corretamente para Windows XP/Vista/Seven 32 e 64.

Pessoal, Somente comentando a solução que encontrei até o momento não apresentou nenhum erro. Único detalhe e que tenho que guardar o backup do arquivo msado27.tlb Windows XP SP3 para quando formatar o computador ou trocar de PC. Segue o link Instalação de programa feito em VB6 no W7 SP1

abezerra, No caso os projetos que estão .vbg cada um gera um "exe" ? Caso sim, Eu não conheço um modo prático de fazer essa chamada do form que esta no segundo projeto. No caso penso que agrupar em um arquivo .vbg facilite o trabalho de achar "os códigos", mas, isso não quer dizer que o projeto terá visão/acesso aos demais projetos no VB6 como um módulo compartilhado. O que utilizo hoje é tem um projeto que gera o "exe" da tela principal. E os demais projetos gera DLL's que instancio pela tela principal quando vou utilizar.

Pessoal, Estou com uma dificuldade em relação a identificar se o usuário que esta executando o Sistema (Feito em VB6) tem controle total de uma pasta. Gostaria de saber se tem alguma API do Windows que Eu possa utilizar VB6 para realizar essa validação.

Octavio, Tente utilizar a função "Environ" para retornar o diretório. Segue um exemplo. Sub Macro01() Dim teste As String teste = Environ("UserProfile") MsgBox teste End Sub

RobinhoVB, Testa o código abaixo vê se ele atende a sua situação. Private Sub Command_Click() Dim FSO As Object Dim sT As TextStream Dim arqFormatado As TextStream Dim LinhaTexto As String Dim tempTexto As String Set FSO = CreateObject("Scripting.FileSystemObject") Set sT = FSO.OpenTextFile(App.Path & "\Teste.txt", ForReading, True) Set arqFormatado = FSO.CreateTextFile(App.Path & "\Arquivo.txt", True) Dim ContReg As Boolean Dim Cont As Integer Cont = 1 Do Until sT.AtEndOfStream LinhaTexto = sT.ReadLine ContReg = InStr(1, LinhaTexto, ";") = 1 If ContReg Or Cont = 1 Then tempTexto = tempTexto & LinhaTexto Else arqFormatado.WriteLine tempTexto tempTexto = Empty tempTexto = tempTexto & LinhaTexto Cont = 1 End If Cont = Cont + 1 Loop sT.Close Set sT = Nothing arqFormatado.Close Set arqFormatado = Nothing FullText = tempTexto MsgBox "OK" End Sub Link para download do projeto http://www.4shared.com/zip/dFW4K7tK/Exemplo.html.

O exemplo que você passou sempre quando um registro "novo" NÃO tem ";" no inicio da linha. Poderiamos usar isso para idendificar o registro e assim não teriamos problema se for 7 ou 6 linhas. Poderia confirmar se isso ocorre em todos os registros?

Confirmou que o tamanho para cada registro é 7 linhas – Vi acima que comentou que pode ser 6 confirma essa possibilidade?. Observando exemplo do arquivo que passou o separador seria “;” certo? Agora faltam dois detalhes... Um seria em relação ao termino do arquivo... Tem algum caractere que finaliza o arquivo ou somente uma linha em branco? No arquivo constam os nomes dos campos em parênteses?