Discussions
Activity
Best Of...
Sign In
·
Register
Home
›
NAV Three Tier
Howdy, Stranger!
It looks like you're new here. Sign in or register to get started.
Sign In
Register
Quick Links
Categories
Recent Discussions
Activity
Best Of...
Unanswered
Categories
All Categories
73
General
73
Announcements
66.6K
Microsoft Dynamics NAV
18.6K
NAV Three Tier
38.4K
NAV/Navision Classic Client
3.6K
Navision Attain
2.4K
Navision Financials
115
Navision DOS
854
Navision e-Commerce
1K
NAV Tips & Tricks
772
NAV Dutch speaking only
615
NAV Courses, Exams & Certification
2K
Microsoft Dynamics-Other
1.5K
Dynamics AX
298
Dynamics CRM
109
Dynamics GP
10
Dynamics SL
1.5K
Other
993
SQL General
384
SQL Performance
34
SQL Tips & Tricks
34
Design Patterns (General & Best Practices)
Architectural Patterns
10
Design Patterns
5
Implementation Patterns
53
3rd Party Products, Services & Events
1.7K
General
1.1K
General Chat
1.6K
Website
79
Testing
1.2K
Download section
23
How Tos section
259
Feedback
12
NAV TechDays 2013 Sessions
13
NAV TechDays 2012 Sessions
Iterating a directory
rickyl76
Member
Posts:
25
2020-02-07
in
NAV Three Tier
When iterating a directory using a background client is it possible to ignore files that are empty? I'm using the getserverdirectorylist function but i want to exclude files that have zero size
Regards,
0
Answers
edoderoo
Member
Posts:
89
2020-02-07
Googled, and found a solution from 12 years ago:
PROCEDURE GetFileSize@1000000000(FileName@1000000000 : Text[1024]) FileSize : Integer;
VAR
InFile@1000000001 : File;
BEGIN
InFile.OPEN(FileName) ;
FileSize := InFile.LEN ;
InFile.CLOSE ;
END;
IF User.Loves('Edo') THEN ok() ELSE currReport.genSkip;
0
RockWithNAV
Member
Posts:
1,139
2020-02-12
Agree with what
@edoderoo
mentioned, If Length is giving you 0 that means its an empty file.
Thanks
Blog -
rockwithnav.wordpress.com/
Twitter -
https://twitter.com/RockwithNav
Facebook -
https://facebook.com/rockwithnav/
1
Sign In
or
Register
to comment.
Answers
PROCEDURE GetFileSize@1000000000(FileName@1000000000 : Text[1024]) FileSize : Integer;
VAR
InFile@1000000001 : File;
BEGIN
InFile.OPEN(FileName) ;
FileSize := InFile.LEN ;
InFile.CLOSE ;
END;
Blog - rockwithnav.wordpress.com/
Twitter - https://twitter.com/RockwithNav
Facebook - https://facebook.com/rockwithnav/