sambomb Posted February 19, 2009 Report Share Posted February 19, 2009 Porque trava no DirectoryRecurse... DirectoryRecurse("C:\*.Fivewin.ch") MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
vagner Posted February 19, 2009 Report Share Posted February 19, 2009 Aqui funcionou legal , logicamente, demorou por causa da quantidade de diretórios cerca de uns 2 min. +-, como foi que vc fez ? mudou o aDir como eu falei ? aDir := DirectoryRecurse("C:\FiveWin.Ch") Agora se vc colocou igual ao que postou, ele vai entrar no for, mas não irá executar aDir := DirectoryRecurse("C:\FiveWin.Ch") ? Len(aDir) For i = 1 to Len( aDir ) ? aDir[i,1] Next id=code>id=code>Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
vagner Posted February 19, 2009 Report Share Posted February 19, 2009 citação:Porque trava no DirectoryRecurse... DirectoryRecurse("C:\*.Fivewin.ch") MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>Samir, Assim ele não irá encontrar , pois vc colocou \*.id=red>Fivewin.ch Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2009 Author Report Share Posted February 19, 2009 //-> Vagner NAO FUNCIONOU - demorou... demorou... E nada... #Include "fivewin.ch" #Include "Directry.ch" //------------------------------------------------ FUNCTION Main() LOCAL aDir, i, conta := 0 aDir := DirectoryRecurse("C:\FiveWin.Ch") ? Len( aDir ), "Arquivos Listados." For i = 1 to Len( aDir ) //Grava no seu DBF aDiretorios[i,1] ? aDir[i,1] Next RETURN NIL id=code>id=code>Sera que falta alguma LIB?? Como esta o seu BUILDX.BAT?? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 19/02/2009 14:23:30 Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted February 19, 2009 Report Share Posted February 19, 2009 Pra procurar um arquivo em uma unidade, use aFindFile() Exemplo: aFindFile( "Fivewin.ch","c:") Retornara um vetor de onde foi encontrao o arquivo desejado. Agora se o Hd tiver muitos arquivos, paciencia que demora mesmo. Giovany Vecchi - Jales - SP FWH 8.6 / Harbour RC1 V 1.0.0 / Code Gear 6 Bcc 5.6 /Bcc 5.9 / Ads 8.1 /PellesC Quote Link to comment Share on other sites More sharing options...
vagner Posted February 19, 2009 Report Share Posted February 19, 2009 citação://-> Vagner NAO FUNCIONOU - demorou... demorou... E nada... id=quote>id=quote>Deixe eu só fazer uma pergunta , vc está com o Five Instalado no Drive C: não é ???? Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2009 Author Report Share Posted February 19, 2009 FUNCIONOU GIOVANNY, AGORA O ? aDir[i,1,] RETORNOU C, EU PRECISO QUE O QUE RETORNE O NOME DO DIRETORIO. POR EX.: C:\FWH27 COMO FAÇO? #Include "fivewin.ch" #Include "Directry.ch" //------------------------------------------------ FUNCTION Main() LOCAL aDir, i, conta := 0 //aDir := DirectoryRecurse("C:\FiveWin.Ch") aDir := aFindFile( "FIVEWIN.CH", "C:" ) ? Len( aDir ), "Arquivos Listados." For i = 1 to Len( aDir ) //Grava no seu DBF aDiretorios[i,1] ? aDir[i,1] Next RETURN NIL id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 19/02/2009 14:47:55 Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted February 19, 2009 Report Share Posted February 19, 2009 citação:FUNCIONOU GIOVANNY, AGORA O ? aDir[i,1,] RETORNOU C, EU PRECISO QUE O QUE RETORNE O NOME DO DIRETORIO. POR EX.: C:\FWH27 COMO FAÇO? #Include "fivewin.ch" #Include "Directry.ch" //------------------------------------------------ FUNCTION Main() LOCAL aDir, i, conta := 0 //aDir := DirectoryRecurse("C:\FiveWin.Ch") aDir := aFindFile( "FIVEWIN.CH", "C:" ) ? Len( aDir ), "Arquivos Listados." For i = 1 to Len( aDir ) //Grava no seu DBF aDiretorios[i,1] ? aDir[i,1] Next RETURN NIL id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 19/02/2009 14:47:55 id=quote>id=quote>Não sei se é isto q voce quer, mais voce poderia fazer assim: ? Strtran(aDir[i,1],"\FIVEWIN.CH","") Isto eliminaria o texto FIVEWIN.CH e sobraria somente os diretorios Giovany Vecchi - Jales - SP FWH 8.6 / Harbour RC1 V 1.0.0 / Code Gear 6 Bcc 5.6 /Bcc 5.9 / Ads 8.1 /PellesC Quote Link to comment Share on other sites More sharing options...
sambomb Posted February 19, 2009 Report Share Posted February 19, 2009 citação:FUNCIONOU GIOVANNY, AGORA O ? aDir[i,1,] RETORNOU C, EU PRECISO QUE O QUE RETORNE O NOME DO DIRETORIO. POR EX.: C:\FWH27 COMO FAÇO? #Include "fivewin.ch" #Include "Directry.ch" //------------------------------------------------ FUNCTION Main() LOCAL aDir, i, conta := 0 //aDir := DirectoryRecurse("C:\FiveWin.Ch") aDir := aFindFile( "FIVEWIN.CH", "C:" ) ? Len( aDir ), "Arquivos Listados." For i = 1 to Len( aDir ) //Grava no seu DBF aDiretorios[i,1] ?cFilePath(aDir[i,1])id=red> //-- Retorna o diretório //? aDir[i,1] Next RETURN NIL id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 19/02/2009 14:47:55 id=quote>id=quote>MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2009 Author Report Share Posted February 19, 2009 NAO FUNCIONOU GIOVANNY, RETORNA SEMPRE "C". PRECISO QUE RETORNE O DIRETORIO ONDE ELE ENCONTROU FIVEWIN.CH Abraço.s João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2009 Author Report Share Posted February 19, 2009 citação: citação:FUNCIONOU GIOVANNY, AGORA O ? aDir[i,1,] RETORNOU C, EU PRECISO QUE O QUE RETORNE O NOME DO DIRETORIO. POR EX.: C:\FWH27 COMO FAÇO? #Include "fivewin.ch" #Include "Directry.ch" //------------------------------------------------ FUNCTION Main() LOCAL aDir, i, conta := 0 //aDir := DirectoryRecurse("C:\FiveWin.Ch") aDir := aFindFile( "FIVEWIN.CH", "C:" ) ? Len( aDir ), "Arquivos Listados." For i = 1 to Len( aDir ) //Grava no seu DBF aDiretorios[i,1] ?cFilePath(aDir[i,1])id=red> //-- Retorna o diretório //? aDir[i,1] Next RETURN NIL id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 19/02/2009 14:47:55 id=quote>id=quote>MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>#Include "fivewin.ch" #Include "Directry.ch" //------------------------------------------------ FUNCTION Main() LOCAL aDir, i, conta := 0 //aDir := DirectoryRecurse("C:\TUTOR04.PRG") aDir := aFindFile( "TUTOR04.PRG", "C:" ) ? Len( aDir ), "Arquivos Listados." For i = 1 to Len( aDir ) //Grava no seu DBF aDir[i,1] ? cFilePath(aDir[i,1]) //-> RETORNOU: \ BARRA INVERSA Next RETURN NIL id=code>id=code>Que dureza... João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sambomb Posted February 19, 2009 Report Share Posted February 19, 2009 quer dizer que ta na raiz, ou é engano meu? coloque em outro local, por exemplo no desktop, para ver se aparece: \documents and settings\kapiaba\desktop\ MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
kleyber Posted February 19, 2009 Report Share Posted February 19, 2009 Só uma pergunta: o aFindFile() retorna um array com quantos elementos? O que teria, por exemplo: aDir[i,2]? Kleyber Derick xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
vailtom Posted February 19, 2009 Report Share Posted February 19, 2009 O que aparece com: id=code>id=code>Veja se aDir já não é uma string... se for aDir[i,1] é o primeiro caracter desta string e vc pode estar se confindindo aê. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2009 Author Report Share Posted February 19, 2009 //-> Resolvido, by Mister Paulo Araujo. #Include "Fivewin.ch" #Include "Directry.ch" //------------------------------------------------ FUNCTION Main() LOCAL aDir, i, cNomeDir, cResultCam, wPosicBarra aDir := aFindFile( "TUTOR04.PRG", "C:" ) ? Len( aDir ), "Arquivos Listados." For i = 1 to Len( aDir ) //Grava no seu DBF aDir[i,1] cNomeDir := cFilePath(aDir)+SPACE(50) wPosicBarra := AT( "\"," "+SUBS( cNomeDir, 4, 37 ) ) cResultCam := SUBS( cNomeDir, 1, wPosicBarra - 1) ? cResultCam Next RETURN NIL id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sambomb Posted February 20, 2009 Report Share Posted February 20, 2009 Kapiaba, pra que isso aqui: cNomeDir := cFilePath(aDir)+SPACE(50) //-- esse space(50) wPosicBarra := AT( "\"," "+SUBS( cNomeDir, 4, 37 ) ) //-- e o resto abaixo cResultCam := SUBS( cNomeDir, 1, wPosicBarra - 1) id=code>id=code>o cFilePath() indica o diretório do arquivo que você passa como parâmetro... MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 20, 2009 Author Report Share Posted February 20, 2009 Teste rapaz, que voce vai entender. EU SOMENTE PRECISO DO RETORNO C:\FWH27 E ME RETORNAVA C:\FWH27\SAMPLES -> SAMPLES, NAO QUERO. Entende? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sambomb Posted February 20, 2009 Report Share Posted February 20, 2009 mas se for instalado em alguma subpasta que não seja a raiz vai dar errado, o certo seria buscar um arquivo de dentro da pasta fivewin, ou fazer um tratamento para ignorar a pasta samples em especifico... MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 20, 2009 Author Report Share Posted February 20, 2009 citação:mas se for instalado em alguma subpasta que não seja a raiz vai dar errado, o certo seria buscar um arquivo de dentro da pasta fivewin, ou fazer um tratamento para ignorar a pasta samples em especifico... MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>Tio, pelo amor de DEUS: -> aDir := aFindFile( "TUTOR04.PRG", "C:" ) Me retornará todas as pastas quem CONTEM TUTOR04.PRG e eu pego e mostro em uma LISTBOX o RETORNO ex: C:\FWH C:\FWH25 C:\FWH27 C:\FWH905 Onde existtir FIVEWIN, mostrará no RESULTADO. O Usuário ESCOLHERà com qual FIVEWIN vai COMPILAR, o Anderson não mostrou o PROGRAMA QUE ENIVEI PARA ELE? ONDE ESTA ESCRITO: será MOSTRADO UMA LISTBOX, Idea By Vailton Renato. Abraço.s João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
vailtom Posted February 20, 2009 Report Share Posted February 20, 2009 rsrsrsrs... idéia "polêmica" esta diga-se de passagem. Quote Link to comment Share on other sites More sharing options...
sambomb Posted February 20, 2009 Report Share Posted February 20, 2009 Mostrou não Kapiaba e o que eu estou falando é de instalar em C:\Arquivos de programas\Fivewin\ ae pelo que eu entendi do código(não testei) iria dar errado uma vez que a primeira barra iria retornar a pasta arquivos de programas ao invés da pasta do fivewin. MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 20, 2009 Author Report Share Posted February 20, 2009 citação:Mostrou não Kapiaba e o que eu estou falando é de instalar em C:\Arquivos de programas\Fivewin\ ae pelo que eu entendi do código(não testei) iria dar errado uma vez que a primeira barra iria retornar a pasta arquivos de programas ao invés da pasta do fivewin. MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>AZAR! O QUE EU POSSO FAZER?? POR ISSO, PENSANDO NAS KGADAS DOS USUARIOS, O SISTEMA TERà DOIS BOTÕES, UM COM A LISTBOX E O OUTRO COM OS DIRETORIOS PARA QUE SE ELE NÃO ACHAR, CLICK() NOS DIRETORIOS E ESCOLHA O CORRETO. ESTAREI ATENDENDO E ´MATANDO DOIS COELHOS COM UMA PORRADA SÓ´: ATENDO O VAILTON E PARA QUEM NÃO GOSTAR DA IDEIA DELE, É SÓ CLICKAR NO SEGUNDO BOTAO... KAPICHE? Abraço.s João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sambomb Posted February 20, 2009 Report Share Posted February 20, 2009 tudo bem... mas é possivel pegar todos direto mas se ta com preguiça de fazer por mim tudo bem... ahuahuah Afinal esse projeto é mais para uso próprio né? MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 20, 2009 Author Report Share Posted February 20, 2009 citação:tudo bem... mas é possivel pegar todos direto mas se ta com preguiça de fazer por mim tudo bem... ahuahuah Afinal esse projeto é mais para uso próprio né? MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>KKKKKKKKKKKKKKKKKKKKKKK. NÃO, SERà COMERCIAL! SE VAI VENDER, EU NÃO SEI! ESTOU MELHORANDO O DEMO, PEGANDO OPINIÃO DOS AMIGOS, DEPOIS, DISPONIBILAZAREI UM DEMO MAIS ROBUSTO, PARA OS AMIGOS E OS INIMIGOS CRITICAREM... SOMENTE QUATRO PESSOAS RECEBERAM ATÉ AGORA: ANDERSON. CRISTIANO GILMER VAILTON. SOMENTE QUATRO Jà ME DEIXARAM QUASE ´LOUCO´ KKKK, IMAGINE QUANDO FOREM TODOS... ESTOU PENSANDO EM FAZER O PROGRAMA CRIAR AS TELAS DE FOLDERS... QUE ACHAS??? QUE MAIS ACHAS? Abraço.s João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sambomb Posted February 25, 2009 Report Share Posted February 25, 2009 Ta fazendo um "delphi" para fivewin? MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 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.