VS:GetFileInfo/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

ファイルの属性を返します。

PROCEDURE GetFileInfo(
            filename                  :STRING;
            VAR fullReadPath          :STRING;
            VAR fullWritePath         :STRING;
            VAR readFileExists        :BOOLEAN;
            VAR writeFileExists       :BOOLEAN;
            VAR locked                :BOOLEAN;
            VAR hasReadPermission     :BOOLEAN;
            VAR hasWritePermission    :BOOLEAN;
            VAR hasFolderPermission   :BOOLEAN);

def vs.GetFileInfo(filename):
    return (fullReadPath, fullWritePath, readFileExists, writeFileExists, locked, hasReadPermission, hasWritePermission, hasFolderPermission)

Parameters

filename		STRING
fullReadPath		STRING
fullWritePath		STRING
readFileExists		BOOLEAN
writeFileExists		BOOLEAN
locked		BOOLEAN
hasReadPermission		BOOLEAN
hasWritePermission		BOOLEAN
hasFolderPermission		BOOLEAN

Example

PROCEDURE Example;
VAR
   fileName :STRING;
   fullReadPath, fullWritePath :STRING;
   readFileExists, writeFileExists, locked, hasReadPermission, hasWritePermission, hasFolderPermission :BOOLEAN;
BEGIN
   fileName := Concat(GetFolderPath(1), 'ADINIT.DAT');
   GetFileInfo(fileName, fullReadPath, fullWritePath, readFileExists, writeFileExists, locked, hasReadPermission, hasWritePermission, hasFolderPermission);
   ReWrite('Output.txt');
   WriteLn('fileName:            ', fileName);
   WriteLn('fullReadPath:        ', fullReadPath);
   WriteLn('fullWritePath:       ', fullWritePath);
   WriteLn('readFileExists:      ', readFileExists);
   WriteLn('writeFileExists:     ', writeFileExists);
   WriteLn('locked:              ', locked);
   WriteLn('hasReadPermission:   ', hasReadPermission);
   WriteLn('hasWritePermission:  ', hasWritePermission);
   WriteLn('hasFolderPermission: ', hasFolderPermission);
   Close('Output.txt');
END;
RUN(Example);

Version

利用可能バージョン: VectorWorks12.0