學習記錄：OpenOffice Basic (8)

　　
本文大量參考了 wiki.services.openoffice.org 的內容。
　
URL 格式　在我的電腦世界中，好像就只有下兩種 path ：

DOS C:\Program Files\test.odt
LINUX /home/danny/Desktop/MyCalc.sxc

Ooo Basic 為了跨平台及使用 XML格式，採用了 URL 表示法。不管你是 DOS 還是 LINUX，所有 Ooo 的path格式都必須用如下的表示式：

file:///C:/Program%20Files/test.odt
file:///home/danny/Desktop/MyCalc.sxc

ConvertToUrl

rem ##### 由 DOS 轉為 URL 格式
strPath="C:\Program Files\test.odt"
OooFormatURL=ConvertToUrl((strPath)
msgbox " URL 格式的 path : " + OooFormatURL

ConvertFromUrl

上列的轉換，好像解決了所有 Ooo Basic 的執行問題。但 Ooo Basic 又提供了另一個 ConvertFromUrl 函數。

rem ##### 由 url 轉為 DOS 格式
strPath="file:///C:/Program%20Files/test.odt"
DosFormatURL=ConvertFromUrl(strPath)
msgbox " DOS 格式的 path : " + DosFormatURL

為什麼？ Ooo Basic 還可以直接操控檔案系統。

搜索目錄 sDir= Dir("C:\Program Files", 16)

16 是規定只返回目錄名。如沒有，則返回 " " ，即空值。

搜索文件 sFile= Dir("C:\Program Files\test.odt", 0)

0 是規定只返回文件名。如沒有，則返回 " " ，即空值。

建立目錄　MkDir ("C:\SubDir1\SubDir2\SubDir3\")

MkDir 可同時建立多層目錄。

刪除目錄 RmDir ("C:\SubDir1\SubDir2\SubDir3\")

RmDir 可同時刪除多層目錄及文件。

刪除文件 Kill(Filename)

複製文件 FileCopy(Source, Destination)

重新合名文件 Name OldName As NewName

刪除文件 Kill(Filename)

查核文件是否存在

If FileExists(Filename) Then
MsgBox "file exists."
End If

文件屬性

將 test.txt 文件設成唯讀 SetAttr("test.txt", 1)

將 test.txt 文件設成可讀寫 SetAttr("test.txt", 0)

讀取 test.txt 文件的日期時間 FileDateTime("test.txt")

讀取 test.txt 文件的大小 FileLen("test.txt")