Escolher Arquivo de uma Pasta

[personal]

Estou tentando fazer o seguinte.

De um BUTTON, acionar o cGetFile32.

até aí tudo bem, só que dentro da pasta terei arquivos

doc e xls, preciso pegar o nome do arquivo para abrir

o World, ou Excel.

[vagner]

Olá Sergio,

cFile := cGetFile32()

If "XLS" $ Upper(cFile) ; Excel ; Endif

If "DOC" $ Upper(cFile) ; Word ; Endif

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5

[personal]

Vagner, o que estou querendo é escolher o arquivo

pelo cGetFile32() e abrir o editor correspondente com

o arquivo selecionado.

[evandro]

Olá,

cArq:= cGetFile32( "Word | *.doc |" + ;

"Excel | *.xls |" ,;

"Selecione arquivo" )

if "DOC"$upper(cArq)

winexec( 'C:\Arquivos de programas\Microsoft Office\Office\winword.exe '+cArq )

elseif "XLS"$upper(cArq)

winexec( 'C:\Arquivos de programas\Microsoft Office\Office\excel.exe '+cArq )

endif

Testei num XP e funcionou legal.

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na Roça)

FWH 2.5+PellesC+xBuild+xHarbour.org 0.99.3

Editado por - evandro on 03/07/2005 09:26:10

Editado por - evandro on 03/07/2005 09:29:29

[toya]

Sugiro, apenas para evitar algumas coincidencias desagradaveis, não querendo emendar o Guru Evandro:

if ".DOC"$upper(cArq)

winexec( 'C:\Arquivos de programas\Microsoft Office\Office\winword.exe '+cArq )

elseif ".XLS"$upper(cArq)

winexec( 'C:\Arquivos de programas\Microsoft Office\Office\excel.exe '+cArq )

endif

toya

toyasis@yahoo.com.br

http://www.toyanet.com.br

FWH 2.4+PellesC+xBuild+xHarbour.org 0.99

FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E

Editado por - toya on 03/07/2005 22:29:47