kapiaba Posted July 24, 2012 Report Share Posted July 24, 2012 Como indentificar pasta e subpasta aleatórias? Pasta de c:\INST_NFE\UNIDANFE\email\anexos\2012-07 24/07/2012 15:02 24/07/2012 15:02 24/07/2012 10:24 24/07/2012 10:24 24/07/2012 09:36 24/07/2012 09:43 24/07/2012 09:43 24/07/2012 09:45 24/07/2012 09:45 24/07/2012 09:45 24/07/2012 10:26 24/07/2012 10:29 24/07/2012 10:38 24/07/2012 10:51 24/07/2012 10:52 24/07/2012 10:54 24/07/2012 10:55 24/07/2012 13:14 24/07/2012 14:40 24/07/2012 14:41 Como sair dessa? Obg. Abs. id=code>id=code>João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 24, 2012 Author Report Share Posted July 24, 2012 Como indentificar pasta e subpasta aleatórias? Pasta de c:\INST_NFE\UNIDANFE\email\anexos\2012-07 24/07/2012 15:02 24/07/2012 15:02 24/07/2012 10:24 24/07/2012 10:24 24/07/2012 09:36 24/07/2012 09:43 24/07/2012 09:43 24/07/2012 09:45 24/07/2012 09:45 24/07/2012 09:45 24/07/2012 10:26 24/07/2012 10:29 24/07/2012 10:38 24/07/2012 10:51 24/07/2012 10:52 24/07/2012 10:54 24/07/2012 10:55 24/07/2012 13:14 24/07/2012 14:40 24/07/2012 14:41 Como sair dessa? Obg. Abs. id=code>id=code>João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
emotta Posted July 24, 2012 Report Share Posted July 24, 2012 Como assim identificar? Dê um exemplo... rs citação:Como indentificar pasta e subpasta aleatórias? Pasta de c:\INST_NFE\UNIDANFE\email\anexos\2012-07 24/07/2012 15:02 24/07/2012 15:02 24/07/2012 10:24 24/07/2012 10:24 24/07/2012 09:36 24/07/2012 09:43 24/07/2012 09:43 24/07/2012 09:45 24/07/2012 09:45 24/07/2012 09:45 24/07/2012 10:26 24/07/2012 10:29 24/07/2012 10:38 24/07/2012 10:51 24/07/2012 10:52 24/07/2012 10:54 24/07/2012 10:55 24/07/2012 13:14 24/07/2012 14:40 24/07/2012 14:41 Como sair dessa? Obg. Abs. id=code>id=code>João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Eduardo Motta emotta@gmail.com.br FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 24, 2012 Author Report Share Posted July 24, 2012 kkkkkkkkkkkkkkkk É isso que eu gostaria um exemplo. O problema é que o UNIDANFE.EXE para carta carta de correção, cria um diretorio diferente e guarda o .PDF da carta nesta sub pasta aleatória, conforme voce pode ver acima... Eu consigo ir até: C:\INST_NFE\UNIDANFE\EMAIL\ANEXOS\ // + não consigo ir até a subpasta onde está a chave da nfe + .pdf Entende? Obg. abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 24, 2012 Author Report Share Posted July 24, 2012 Exemplo: Se eu quiser ir pelo botão de anexar um .PDF fazendo assim, dá quase certo, porque ai abre todas as supbastas aleatórias, o diabo é que fica quase impossivel para um "jumento" de uçuário saber a subpasta que está a chave da nf-e para ele pegar. Queria pegar automático. entende? cPathPdf := cFILEPATH(GETMODULEFILENAME(GETINSTANCE())) + ; "\UNIDANFE\email\anexos\" ? cPathPdf //= C:\INST_NFE\UNIDANFE\EMAIL\ANEXOS\ cFile := SubStr( cGetFile( "*.PDF", "Adicionar(Inserir) Anexo " ), 1 ) id=code>id=code>Obg. abs. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sambomb Posted July 24, 2012 Report Share Posted July 24, 2012 Se você tiver a data e hora é PROVÃVEL que você consiga, se olhar o nome das pastas vai ver que segue AAAA-MM-DD_HH-MM-SS_* RCA Sistemas - Itaocara - RJ Quote Link to comment Share on other sites More sharing options...
emotta Posted July 24, 2012 Report Share Posted July 24, 2012 Pelo que entendi o nome do arquivo voce sabe, certo? é (chave da nfe).pdf Então faça assim: cPath := "C:\INST_NFE\UNIDANFE\EMAIL\ANEXOS\" cFile := cChave+".pdf" aFile := DirectoryRecursive(cPath+cFile) If Len(aFile)==0 ? "arquivo não encontrado" Else cArq := "" cExt := "" cPat := "" For nI := 1 to len(aFile) hb_FNameSplit( aFile[nI,1], @cPat, @cArq, @cExt ) ? cPat+" "+cArq+" "+cExt Next EndIf Ou então voce pode criar um LISTBOX para selecionar os arquivos encontrados e com isso o usuário selecionar o que ele precisa. E caso não seja isso que esteja precisando é pq não entendi ao certo o que voce precisa. Pelo que entendi voce tem o nome do arquivo mas não sabe a pasta que ele se localiza, se for isso mesmo a solucao acima localiza o arquivo dentro das SUBPASTAS ALEATORIAS. abraço, citação:kkkkkkkkkkkkkkkk É isso que eu gostaria um exemplo. O problema é que o UNIDANFE.EXE para carta carta de correção, cria um diretorio diferente e guarda o .PDF da carta nesta sub pasta aleatória, conforme voce pode ver acima... Eu consigo ir até: C:\INST_NFE\UNIDANFE\EMAIL\ANEXOS\ // + não consigo ir até a subpasta onde está a chave da nfe + .pdf Entende? Obg. abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Eduardo Motta emotta@gmail.com.br FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD Editado por - emotta on 24/07/2012 20:36:28 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 25, 2012 Author Report Share Posted July 25, 2012 citação:Se você tiver a data e hora é PROVÃVEL que você consiga, se olhar o nome das pastas vai ver que segue AAAA-MM-DD_HH-MM-SS_* RCA Sistemas - Itaocara - RJ id=quote>id=quote>Samir, o problema é que o UNIDANFE.EXE não me dá um retorno de onde ele gravou, qual o ano, dia, mes, hora e além disso, só você olhar direito, ele gera um número aleatório e não me devolve este numero para eu guardar... Mesmo assim, obg. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
emotta Posted July 25, 2012 Report Share Posted July 25, 2012 João, mas o nome do arquivo que ele gravou vc sabe? Se sabe o nome voce pode localizar com a solução que eu postei acima. citação: citação:Se você tiver a data e hora é PROVÃVEL que você consiga, se olhar o nome das pastas vai ver que segue AAAA-MM-DD_HH-MM-SS_* RCA Sistemas - Itaocara - RJ id=quote>id=quote>Samir, o problema é que o UNIDANFE.EXE não me dá um retorno de onde ele gravou, qual o ano, dia, mes, hora e além disso, só você olhar direito, ele gera um número aleatório e não me devolve este numero para eu guardar... Mesmo assim, obg. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Eduardo Motta emotta@gmail.com.br FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD Quote Link to comment Share on other sites More sharing options...
roberio Posted July 25, 2012 Report Share Posted July 25, 2012 Kapiaba nao deu certo o exemplo q postei? ex: aDir := aFindFile("23120711522734000157550010000000061000000060_10-cce.pdf", "c:\INST_NFE\unidanfe\email\anexos\" ) If !Empty( aDir ) cArq2 := aDir[1] Endif ? FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 25, 2012 Author Report Share Posted July 25, 2012 citação:Kapiaba nao deu certo o exemplo q postei? ex: aDir := aFindFile("23120711522734000157550010000000061000000060_10-cce.pdf", "c:\INST_NFE\unidanfe\email\anexos\" ) If !Empty( aDir ) cArq2 := aDir[1] Endif ? FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX id=quote>id=quote>Ainda não testei desta forma, mas já consegui com a solução do Emotta. Valeu garoto, muito obrigado. Postando solução abaixo: Ans, obg. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 25, 2012 Author Report Share Posted July 25, 2012 Perfeito Emotta, voce e o cara... Obrigado!! cPath := "C:\INST_NFE\UNIDANFE\EMAIL\ANEXOS\" //cFile := cChave+".pdf" cFile := ALLTRIM( cCHAVE ) + "_" + ; ALLTRIM( STRZERO( nNumCCe, 2 ) ) + "-cce.pdf" // Isto nao funciona na minha versao //aFile := DirectoryRecursive( cPath + cFile ) //Showit( DIRECTORYRECURSE( "C:\WINDOWS\*.EXE" ) ) // exemplo XHARBOUR // Isto funciona na minha versao aFile := DIRECTORYRECURSE( cPath + cFile ) If Len(aFile)==0 ? "arquivo não encontrado" Else cArq := "" cExt := "" cPat := "" For nI := 1 to len(aFile) hb_FNameSplit( aFile[nI,1], @cPat, @cArq, @cExt ) ? cPat+" "+cArq+" "+cExt+" Perfeito Emotta!" Next EndIf aFiles := ALLTRIM( cPat+cArq+cExt ) ? aFiles // Perfeito Emotta, ja posso enviar o .PDF por email id=code>id=code> João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
emotta Posted July 25, 2012 Report Share Posted July 25, 2012 é isso ai parcero... abraço ! citação:Perfeito Emotta, voce e o cara... Obrigado!! cPath := "C:\INST_NFE\UNIDANFE\EMAIL\ANEXOS\" //cFile := cChave+".pdf" cFile := ALLTRIM( cCHAVE ) + "_" + ; ALLTRIM( STRZERO( nNumCCe, 2 ) ) + "-cce.pdf" // Isto nao funciona na minha versao //aFile := DirectoryRecursive( cPath + cFile ) //Showit( DIRECTORYRECURSE( "C:\WINDOWS\*.EXE" ) ) // exemplo XHARBOUR // Isto funciona na minha versao aFile := DIRECTORYRECURSE( cPath + cFile ) If Len(aFile)==0 ? "arquivo não encontrado" Else cArq := "" cExt := "" cPat := "" For nI := 1 to len(aFile) hb_FNameSplit( aFile[nI,1], @cPat, @cArq, @cExt ) ? cPat+" "+cArq+" "+cExt+" Perfeito Emotta!" Next EndIf aFiles := ALLTRIM( cPat+cArq+cExt ) ? aFiles // Perfeito Emotta, ja posso enviar o .PDF por email id=code>id=code> João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Eduardo Motta emotta@gmail.com.br FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 25, 2012 Author Report Share Posted July 25, 2012 citação:Kapiaba nao deu certo o exemplo q postei? ex: aDir := aFindFile("23120711522734000157550010000000061000000060_10-cce.pdf", "c:\INST_NFE\unidanfe\email\anexos\" ) If !Empty( aDir ) cArq2 := aDir[1] Endif ? FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX id=quote>id=quote>Roberio, nao falei que com chifres frescos eu conseguiria?? kkkkkkkkkkkkkkkk Deu certo com a sua dica tambem... Voce tambem e o cara. Muito Obrigado // como buscar o arquivo PDF da CC-e nesta pasta aleatoria ex: // Exemplo Roberio // aDir := aFindFile("23120711522734000157550010000000061000000060_10-cce.pdf", "c:\INST_NFE\unidanfe\email\anexos\" ) aFiles := aFindFile( ALLTRIM( cCHAVE ) + "_" + ; ALLTRIM( STRZERO( nNumCCe, 2 ) ) + "-cce.pdf", ; "C:\INST_NFE\unidanfe\email\anexos\" ) IF !EMPTY( aFiles ) cArq2 := aFiles[1] ENDIF ? cArq2 aFiles := ALLTRIM( cArq2 ) ? afiles id=code>id=code>Obg. Abs João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.