在 BC 19 中删除 DotNet

发布于 2025-01-17 15:24:26 字数 387 浏览 5 评论 0原文

我想摆脱 DotNet。

是否有任何代码单元可以用于此代码（也许是文件管理中的某些内容）：

procedure GetNoOfFilesInFolder(): Integer
var
    DirectoryInfo: DotNet DirectoryInfo;
    Directory: DotNet Directory;
begin
    IF NOT Directory.Exists(pathToFolder) THEN
        EXIT(-1);
    DirectoryInfo := DirectoryInfo.DirectoryInfo(pathToFolder);
    EXIT(DirectoryInfo.GetFiles().Length);
end;

原文

I want to get rid of the DotNet.

Are there any Codeunits I can use for this code (Maybe something in the FileManagement):

procedure GetNoOfFilesInFolder(): Integer
var
    DirectoryInfo: DotNet DirectoryInfo;
    Directory: DotNet Directory;
begin
    IF NOT Directory.Exists(pathToFolder) THEN
        EXIT(-1);
    DirectoryInfo := DirectoryInfo.DirectoryInfo(pathToFolder);
    EXIT(DirectoryInfo.GetFiles().Length);
end;

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

北渚 2025-01-24 15:24:26

您确实可以为此使用文件管理 codunit，但是它只能删除直接依赖性。 文件管理只是围绕相同dotnet组件的包装器。

在所有情况下，如果要使用文件系统，则需要在app.json中将target 设置为 onprem 。

以下代码应与您的示例相同：

local procedure GetNoOfFilesInFolder(PathToFolder: Text): Integer
var
    FileList: Record "Name/Value Buffer" temporary;
    FileManagement: Codeunit "File Management";
begin
    if not FileManagement.ServerDirectoryExists(PathToFolder) then
        exit(-1);

    FileManagement.GetServerDirectoryFilesList(FileList, PathToFolder);
    exit(FileList.Count);
end;

You can indeed use the File Management codeunit for that, however it only removes the direct DotNet dependency. File Management is just a wrapper around the very same DotNet assemblies.

Under all circumstances if you are to work with the file system you are required to set target to OnPrem in your app.json.

The following code should accomplish the same as your example:

local procedure GetNoOfFilesInFolder(PathToFolder: Text): Integer
var
    FileList: Record "Name/Value Buffer" temporary;
    FileManagement: Codeunit "File Management";
begin
    if not FileManagement.ServerDirectoryExists(PathToFolder) then
        exit(-1);

    FileManagement.GetServerDirectoryFilesList(FileList, PathToFolder);
    exit(FileList.Count);
end;

回复收藏 0 原文

~没有更多了~