Libreoffice巨集筆記：檔案及目錄的處理 @ 呂理群的部落格

Libreoffice巨集筆記:檔案及目錄的處理，使用 Dir()

src: http://www.debugpoint.com/2014/12/files-and-directory-processing-using-libreoffice-calc-macro-using-basic/

本文主要針對 unix 系統中如何處理及讀取個別檔案及目錄，並且把檔名及目錄名稱放到儲存格中。

<code>
Sub list_files() '列出指定目錄下的檔案清單
    Dim i, strFile
    path ="d:/uwamp/" '指定目錄
    strFile = Dir(path,0) '參數二 0代表檔案,16代表目錄
    i = 1 '設定儲存格 Y軸的位置
    while strFile <> ""
        my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,i) '設定儲存格 X,Y軸的位置
        my_cell.String = strFile
        strFile = Dir '直接到下一行
        i = i + 1 '設定儲存格 Y軸的位置
    wend
End Sub

Sub list_directory() '列出指定目錄下的目錄清單
    Dim i, strDir
    path ="d:/uwamp/"
    strDir = Dir(path, 16)
    i = 1 '設定儲存格 Y軸的位置
    while strDir <> ""
        my_cell = ThisComponent.Sheets(0).getCellbyPosition(2,i) '設定儲存格 X,Y軸的位置
        my_cell.String = strDir
        strDir = Dir '直接到下一行
        i = i + 1 '設定儲存格 Y軸的位置
    wend
End Sub