Ajuda com cGetFile()

[Rogerio Figueira]

Olá a todos!

Meus caros, já fiz a pesquisa nos fóruns não encontrei uma solução:

cGetFile()  retorna o nome completo do arquivo com o diretório dele, p. ex.:

D:\eudora\attach\WP_20160121_18_52_26_Pro.jpg

C:\Users\Roger\Pictures\24862434_10155278059854503_7218341658060414317_n.jpg

Eu preciso além do que a função já retorna,  a pasta, o nome do arquivo e o tamanho em bytes separados, p. ex.:

D:\eudora\attach

WP_20160121_18_52_26_Pro.jpg

88976

 

C:\Users\Roger\Pictures

24862434_10155278059854503_7218341658060414317_n.jpg

56432

Alguém tem ideia de como fazer isso?

 

Tks.

 

 

[joaosolution]

Rogerio

Com a função ADIR você consegue o tamanho do arquivo.

https://vivaclipper.wordpress.com/2012/11/01/adir-function/

Att

João Bosco

 

 

[cnavarro]

Una vez que tienes el fichero con cFile := cGetFile() , puedes utilizar las funciones

FSize( cfile ), FDate( cFile ) y FTime( cFile )

[emotta]

 

Olá a todos!

Meus caros, já fiz a pesquisa nos fóruns não encontrei uma solução:

cGetFile()  retorna o nome completo do arquivo com o diretório dele, p. ex.:

D:\eudora\attach\WP_20160121_18_52_26_Pro.jpg

C:\Users\Roger\Pictures\24862434_10155278059854503_7218341658060414317_n.jpg

Eu preciso além do que a função já retorna,  a pasta, o nome do arquivo e o tamanho em bytes separados, p. ex.:

D:\eudora\attach

WP_20160121_18_52_26_Pro.jpg

88976

 

C:\Users\Roger\Pictures

24862434_10155278059854503_7218341658060414317_n.jpg

56432

Alguém tem ideia de como fazer isso?

 

Tks.

 

 

Function u_Teste()
Local cFile := cGetFile32(,"Selecione o arquivo")
Local cPath, cFileName, cExtension
Local nBytes := FileSize(cFile)

HB_FNameSplit( cFile, @cPath, @cFileName, @cExtension )

MsgStop(cPath+Chr(13)+Chr(10)+;                // result: C:\xhb\source\data\
        cFileName+Chr(13)+Chr(10)+;            // result: test
        cExtension+Chr(13)+Chr(10)+;           // result: .dbf
        Str(nBytes,10)+" bytes "+Chr(13)+Chr(10)+;
        Str(nBytes/1024,10)+" K bytes "+Chr(13)+Chr(10)+;
        Str(nBytes/1024/1024,10)+" mb "+Chr(13)+Chr(10))

Return

 

[Rogerio Figueira]

 

 

Ok, resolvido.
Obrigado Motta, obrigado a todos.