Listar pastas e subpastas

[deividdjs]

Como está usando essa rotina de pegar nomes de arquivos, é de se imaginar que está querendo adicionar algum algo mais no aplicativo.

Com WVG pode aproveitar sua tela console e brincar um pouco mais.
A princípio é compilar usando GTWVG.HBC.
O resto depende do que fizer.
Só importante lembrar que a rotina de erro padrão é pra console, e gtwvg não é console.

sim Zé .. até compilei alguns exemplo seus esses dias com esses botoes no topo .. fica showw... porém como eu faria pra abrir esse explorador de arquivos com a GTWVG tem alguma função especifica ??

como o exemplo da foto ... q usa a visual lib + gtwvw do Vagucs ... o codigo é esse ... porém a função GETFILE() não sei de onde ele tira ela ...

Código: Selecionar todos

#include "C:\vl\visual2.ch"
procedure main
set scoreboard off
set deleted on
desktop(,,,,[Times News Roman],"win95.jpg")
tela=win(4,1,19,78,"Visualiza‡Æo de imagens")
use dados.dbf
resposta=1
do while .t.
   rstobj(lastwindow)
   set color to n/w*
   if file(alltrim(imagem))
      addobj(lastwindow,{|janela|wvw_drawimage(janela,7,7,14,20,alltrim(imagem),.f.)})
   else
      @ 7,7 clear to 14,20
   end if
   addobj(lastwindow,{|janela|wvw_drawboxraised(janela,7,7,14,20)})
   @ 6,23 say "Nome"
   @ 7,23 say nome
   @ 8,23 say "Cidade"
   @ 9,23 say cidade
   @ 10,23 say "Tipo"
   @ 11,23 say tipo
   @ 12,23 say "Ocasiao"
   @ 13,23 say ocasiao
   addobj(lastwindow,{|janela|WVW_DrawBoxGet(janela,7,23,35)})
   addobj(lastwindow,{|janela|WVW_DrawBoxGet(janela,9,23,35)})
   addobj(lastwindow,{|janela|WVW_DrawBoxGet(janela,11,23,10)})
   addobj(lastwindow,{|janela|WVW_DrawBoxGet(janela,13,23,20)})
   @ 16,68 say alltrim(str(recno()))+"/"+alltrim(str(reccount()))
   abtn=newbutton()
   addbutton(abtn,16,6,14,"&Primeiro")
   addbutton(abtn,16,21,14,"&Anterior")
   addbutton(abtn,16,35,14,"&Pr¢ximo")
   addbutton(abtn,16,49,14,"&éltimo")
   addbutton(abtn,18,6,14,"&Incluir")
   addbutton(abtn,18,21,14,"&Alterar")
   addbutton(abtn,18,35,14,"&Excluir")
   addbutton(abtn,18,49,14,"&Foto")
   addbutton(abtn,18,63,14,"&Sair")
   resposta=procbutton(abtn,NB_WHITE,resposta)
   do case
      case resposta=1
         go top
      case resposta=2
         skip -1
      case resposta=3
         skip
      case resposta=4
         go bottom
      case resposta=5
         append blank
         @ 7,23 get nome
         @ 9,23 get cidade
         @ 11,23 get tipo
         @ 13,23 get ocasiao
         vlread
      case resposta=6
         @ 7,23 get nome
         @ 9,23 get cidade
         @ 11,23 get tipo
         @ 13,23 get ocasiao
         vlread
      case resposta=7
         if msgbox2("Deseja excluir o registro?")=1
            delete
         end if
      case resposta=8
         arquivo=getfile({{"Imagem JPG","*.jpg"},{"Imagem Bitmap","*.bmp"},{"Imageme GIF","*.gif"},"*.jpg"},"Procurar fotografia","foto",.f.,.t.)
         xlocal="fotos\"+right(arquivo,len(arquivo)-rat([\],arquivo))
         if left(xlocal,9)#"fotos\"
            copy file &arquivo to &xlocal
         end if
         replace imagem with xlocal
      case resposta=9
         vlexit()
   end case
enddo

[JoséQuintas]

A rotina de selecionar arquivos é da API Windows, tanto faz a lib.
O Itamar já passou exemplo.

Aonde está ?