perl - 如何使用perl更改网络共享文件夹中文件的属性？

Question

如何将网络共享文件夹中文件的属性更改为隐藏。
perl 怎么可能？

Answer 1

use Win32::File qw( GetAttributes SetAttributes );

my $qfn = "\\\\server\\share\\dir\\file";
# or: "//server/share/dir/file"

GetAttributes($qfn, my $attrs) or die $^E;
$attrs |= Win32::File::HIDDEN;
SetAttributes($qfn, $attrs) or die $^E;

Win32::文件

笔记：

• 它没有记录，但$^E应该提供错误消息。
• Get-modify-set 避免破坏任何现有属性。