【IRIS/Cache】%Fileの備忘録

ClassMethod search(ByRef data, rootPath As %String, wc As %String = "", sort As %String = "Name")
{
	try{
		s stmt = ##class(%SQL.Statement).%New()
		$$$ThrowOnError( stmt.%PrepareClassQuery("%File", "FileSet") )
 		s res = stmt.%Execute(rootPath, wc, sort)
 		while (res.%Next(.sts)) {
	 		s path=res.%Get("Name")
	 		i (res.%Get("Type")="D"){
		 		// ディレクトリの場合は回帰処理
		 		d ..search(path, .data)
	 		}else{
		 		s data($i(data)) = $lb(path, res.%Get("Size"), res.%Get("DateCreated"), res.%Get("DateModified"), res.%Get("ItemName"))
	 		}
	 	}
	 	$$$ThrowOnError(sts)
	}catch e {
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

ClassMethod drive(full As %Boolean = 1)
{
	try{
		s stmt = ##class(%SQL.Statement).%New()
		$$$ThrowOnError( stmt.%PrepareClassQuery("%File", "DriveList") )
 		s res = stmt.%Execute(full)
 		while (res.%Next(.sts)) {
	 		w !,res.%Get("Drive")
	 	}
	 	$$$ThrowOnError(sts)
	}catch e {
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

ClassMethod parse(dir As %String)
{
	try{
		s stmt = ##class(%SQL.Statement).%New()
		$$$ThrowOnError( stmt.%PrepareClassQuery("%File", "ParseDirectory") )
 		s res = stmt.%Execute(dir)
 		while (res.%Next(.sts)) {
	 		w !,"Name:",res.%Get("Name")," ,","IsDrive:",res.%Get("IsDrive")," ,","Directory:",res.%Get("Directory")
	 	}
	 	$$$ThrowOnError(sts)
	}catch e {
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

s flg = ##class(%File).CreateDirectory(name) // flg=1:成功, 0:失敗

s flg = ##class(%File).CreateNewDir(dir, name) // flg=1:成功, 0:失敗

s flg = ##class(%File).CreateDirectoryChain(name) // flg=1:成功, 0:失敗

s flg = ##class(%File).DirectoryExists(dirName) // flg=1:成功, 0:失敗

s flg = ##class(%File).Exists(dirName) // flg=1:成功, 0:失敗

s flg = ##class(%File).RemoveDirectory(dirName) // flg=1:成功, 0:失敗

s flg = ##class(%File).RemoveDirectoryTree(dirName) // flg=1:成功, 0:失敗

s flg = ##class(%File).Delete(name) // flg=1:成功, 0:失敗

s flg = ##class(%File).ComplexDelete(name) // flg=1:成功, 0:失敗

k created
s flg = ##class(%File).CopyDir(from, to, overlay, .created) // flg=1:成功, 0:失敗
zw created

s flg = ##class(%File).CopyFile(from, to, deleteBeforeCopy) // flg=1:成功, 0:失敗

ClassMethod write(filePath As %String, text As %String, strMode As %String = "UTF8")
{
	try{
		s file=##class(%File).%New(filePath)
		$$$ThrowOnError( file.Open("WNU:/IOTABLE="""_strMode_""":10") )
		$$$ThrowOnError( file.Write(text) )
		d file.Close()
	}catch e{
		w !,$system.Status.DisplayError(e.AsStatus())
	}
}

s flg = ##class(%File).Compare(file1, file2) // flg=1:成功, 0:失敗

s flg = ##class(%File).Rename(old, new) // flg=1:成功, 0:失敗

w ##class(%File).TempFilename("txt","D:\Temp\IRIS")
// D:\Temp\IRIS\xhTpVu1a.txt　←この時は「xhTpVu1a.txt」が作成された

s fileName = ##cla(%File).TempFilename([拡張子], dir)

s dir = ##class(%File).GetDirectory(fulPath) // ディレクトリ名取得

s fileName = ##class(%File).GetFilename(fulPath) // ファイル名取得

s datetime = ##class(%File).GetFileDateCreated(name) // ファイル作成日時取得

s datetime = ##class(%File).GetFileDateModified(name) // ファイル変更日時取得

s size = ##class(%File).GetFileSize(name) // ファイルサイズ取得

// 参考 Dドライブの空き容量取得
s status = ##class(%File).GetDirectorySpace("D:\", .free, .total, 1)