ファイル一覧を表示する実験 LibreofficeCalcBasic

ファイル一覧を表示する実験　LibreofficeCalcBasic

 

 

 

Sub myMacroStandardModuleList()
'マイマクロSrandard内モジュール名一覧を表示する

       Dim msgTxt As String
       Dim moduleName As String
       '
       moduleName = Dir("/home/telstar/.config/libreoffice/4/user/basic/Standard/*.xba")
       '
       Do While moduleName <> ""
               msgTxt = msgTxt & moduleName & Chr(10)
               moduleName = Dir()
       Loop
       '
       Msgbox "/home/telstar/.config/libreoffice/4/user/basic/Standard/" & chr(10)  & msgTxt ,,"マイマクロStandard内モジュール名一覧"
End Sub

Sub TestDir
'ファイル一覧を表示
Dim buf As String
Dim msgTxt As String
Dim oDIr As String
'パスの設定
oDir="/home/telstar/.config/libreoffice/4/user/basic/Standard/"
'読み込み
  buf = Dir (oDir)
  Do While buf <> ""
    msgTxt = msgTxt & buf & chr(10)
    buf = Dir ()        '次のファイル名
    'Print buf
  Loop
  MsgBox msgTxt
  End sub

 

タグ：ファイル一覧