Viva Clipper updated

[esgici]

c'est dans ce site que j'ai commencé a travailler avec hmg
Grand merci a toi mon ami

Pas de quoi mon frère

[quartz565]

Hi Esgici,
I, as many others have done, would like to thank you for the valuable help the site Viva Clipper offers, which I visit almost every day for help.
Thank you very much my friend!

[serge_girard]

+1 Me too, almost weekly

Serge

[mustafa]

As-salaam alaikum , Esgici brother
thanks for the contribution
Regards
Mustafa

[mol]

Thank you!

[esgici]

Hi all

Thanks to all whose interested and liked

Everything is for friends

Viva HMG, builder, supporter and followers

[bpd2000]

As-salaam alaikum , Esgici brother
thanks for the contribution
Regards
Mustafa

+1

[ROBROS]

Hi friend Esgici,
me too, I like VivaCipper, for me it's a true treasure (and pleasure).

In HB_DirScan I found a typo in the result-section:

Example

Assuming this directory tree and files exist :

C:\
| temp D
+ ---- + Dir1 D
| doc1.docx F
| test1.bat F
| test1.txt F
+ Dir2 D
| doc2.docx F
| test2.bat F
| test2.txt F
+ run.bat F
test.bat F
test.exe F

PROC TestDScan()

LOCAL aFFList := HB_DirScan( "C:\TEMP" )

LOCAL x1Row

FOR EACH x1Row IN aFFList
? PAD( x1Row[ 1 ], 23 ),; // Name
TRAN( x1Row[ 2 ], '999,999,999,999' ),; // Size
x1Row[ 3 ],; // Date
x1Row[ 4 ],; // Time
x1Row[ 5 ] // Attributes
NEXT x1Row

RETU // TestDScan()

Result :

Dir1\doc1.docx 14,757 26.02.2014 00:04:27 A
Dir1\test1.bat 54 24.02.2014 00:54:01 A
Dir1\test1.txt 54 24.02.2014 00:54:01 A
Dir2\doc2.docx 14,757 26.02.2014 00:04:27 A
Dir2\test2.bat 54 24.02.2014 00:54:01 A
Dir2\test2.txt 54 24.02.2014 00:54:01 A
runDiz.bat 24 27.02.2014 01:12:28 A
runDiz.bat should be replaced by run.bat
test.bat 54 24.02.2014 00:54:01 A
test.exe 1,413,285 27.02.2014 01:10:36 A

Thank you
Robert

[esgici]

Hi friend Esgici,
me too, I like VivaCipper, for me it's a true treasure (and pleasure).

In HB_DirScan I found a typo in the result-section:

Example

Assuming this directory tree and files exist :

C:\
| temp D
+ ---- + Dir1 D
| doc1.docx F
| test1.bat F
| test1.txt F
+ Dir2 D
| doc2.docx F
| test2.bat F
| test2.txt F
+ run.bat F
test.bat F
test.exe F

PROC TestDScan()

LOCAL aFFList := HB_DirScan( "C:\TEMP" )

LOCAL x1Row

FOR EACH x1Row IN aFFList
? PAD( x1Row[ 1 ], 23 ),; // Name
TRAN( x1Row[ 2 ], '999,999,999,999' ),; // Size
x1Row[ 3 ],; // Date
x1Row[ 4 ],; // Time
x1Row[ 5 ] // Attributes
NEXT x1Row

RETU // TestDScan()

Result :

Dir1\doc1.docx 14,757 26.02.2014 00:04:27 A
Dir1\test1.bat 54 24.02.2014 00:54:01 A
Dir1\test1.txt 54 24.02.2014 00:54:01 A
Dir2\doc2.docx 14,757 26.02.2014 00:04:27 A
Dir2\test2.bat 54 24.02.2014 00:54:01 A
Dir2\test2.txt 54 24.02.2014 00:54:01 A
runDiz.bat 24 27.02.2014 01:12:28 A
runDiz.bat should be replaced by run.bat
test.bat 54 24.02.2014 00:54:01 A
test.exe 1,413,285 27.02.2014 01:10:36 A

Thank you
Robert

Thanks !

Fixed.

Viva Clipper

[tonton2]

mon frère Esgici , Permets moi de te saluer