赛门铁克（北京/成都）招QE for NetBackup and Mobile 【20120306更新】

talkfree

不说了
bless

[ 本帖最后由 talkfree 于 2010-8-3 18:42 编辑 ]

talkfree

原帖由 记不住名 于 2010-8-17 14:24 发表
Set fso                = CreateObject("Scripting.FileSystemObject")
strCDFolder        = Wscript.Arguments.Item(0)
If fso.FolderExists (strCDFolder) Then
        scan (strCDFolder)
Else
        Wscript.Echo "Folder does not exist. ...

"用户自定义的附加属性" 没有实现吧。

给出NTFS的文件属性给楼主参考一下，要增加一个，VBS应该是做不到的。Java不太熟，估计也不行，有知道的兄弟给指点一下。

NTFS_FILE_FLAG_READONLY                        EQU    0x00000001        ;
NTFS_FILE_FLAG_HIDDEN                        EQU    0x00000002        ;
NTFS_FILE_FLAG_SYSTEM                        EQU    0x00000004        ;
NTFS_FILE_FLAG_VOLUME                        EQU    0x00000008        ;
NTFS_FILE_FLAG_DIRECTORY                    EQU    0x00000010        ;
NTFS_FILE_FLAG_ARCHIVE                        EQU    0x00000020        ;
NTFS_FILE_FLAG_DEVICE                        EQU    0x00000040        ;
NTFS_FILE_FLAG_NORMAL                        EQU    0x00000080        ;
NTFS_FILE_FLAG_TEMPORARY                    EQU    0x00000100        ;
NTFS_FILE_FLAG_SPARSE_FILE                    EQU    0x00000200        ;
NTFS_FILE_FLAG_REPARSE_POINT                EQU    0x00000400        ;
NTFS_FILE_FLAG_COMPRESSED                    EQU    0x00000800        ;
NTFS_FILE_FLAG_OFFLINE                        EQU    0x00001000        ;
NTFS_FILE_FLAG_NOT_CONTENT_INDEXED            EQU    0x00002000        ;
NTFS_FILE_FLAG_ENCRYPTED                    EQU    0x00004000        ;
NTFS_FILE_FLAG_INDEX_ROOT_PRESENT            EQU    0x10000000        ;
NTFS_FILE_FLAG_VIEW_INDEX_PRESENT            EQU    0x20000000        ;