フォルダ（ディレクトリ）のコピーをする実験 LIbreOfficeCalcBasic

フォルダ（ディレクトリ）のコピーをする実験　LIbreOfficeCalcBasic

•  /home/telstar/ドキュメント/ 　フォルダをUSBHDDにコピーする
• USBHDDのディレクトリはプロパティで調べる（今回は手動）
• エラー対策なし
• 進行状況表示なし　今後の課題
• 
  

 

Sub DirCopyDoc2
'ドキュメントフォルダをUSBHDDにコピーする実験
'
    Dim oDir1
    Dim oDir2
   
    'Dirディレクト設定
            oDir1 = "/home/telstar/ドキュメント/"    　'コピー元
            oDir2 = "/media/2121-11EF/Ubuntu12Doc_buckup/ドキュメント/"' 'コピー先なければ作成しコピー存在すれば上書き
    'コピーの実行
            createUnoService("com.sun.star.ucb.SimpleFileAccess").copy(oDir1, oDir2)
           
    '終了メッセージ
            msgbox oDir1 & chr(10) & "To" & chr(10)  & oDir2 & chr(10) & "完了",,"フォルダのコピー"
           
End Sub

 

追記　ステータスバーにメッセージを表示

Sub DirCopyDoc2
'ドキュメントフォルダをUSBHDDにコピーする実験
'ステータスバーにメッセージ表示
    Dim oDir1
    Dim oDir2
   
    'Dirディレクト設定
            oDir1 = "/home/telstar/ドキュメント/"    　'コピー元
            oDir2 = "/media/2121-11EF/Ubuntu12Doc_buckup/ドキュメント/"' "コピー先なければ作成しコピー存在すれば上書き

    'ステータスバーに表示    ,10 は必要
        ThisComponent.getCurrentController.getFrame.createStatusIndicator.start( "コピー処理中...." ,10)
   
       'コピーの実行
            createUnoService("com.sun.star.ucb.SimpleFileAccess").copy(oDir1, oDir2)
    'ステータスバー表示終了?    表示メッセージは消えない   
            ThisComponent.getCurrentController.getFrame.createStatusIndicator.end()
    'メッセージを消す
            ThisComponent.getCurrentController.getFrame.createStatusIndicator.start( "",10 )   
           
    '終了メッセージ
            msgbox oDir1 & chr(10) & "To" & chr(10)  & oDir2 & chr(10) & "完了",,"フォルダのコピー"
           
End Sub

 

タグ：フォルダコピー