「Web出版サイト」ベータ公開

Q&A集[?]

当サイトでのご質問の受付は終了しました

すべてのコンテンツを読み込み専用としたため、回答欄からも投稿できません

Apache OpenOffice/LibreOfficeのご質問はそれぞれのフォーラムへご投稿ください

質問コーナー

サイト内検索

分類メニュー

関連サイト


本日:1
昨日:1
総数:1710
現在:3


SimpleFileAccessを用いてFileの削除が出来ません。

ページOpenOffice.org FAQの登録ページ
投稿者new_OOo3
分類
edit/refer
優先順位
edit/refer
状態
edit/refer
カテゴリー
edit/refer
投稿日2010-04-17 19:07:40 (土)
OSWindowsXP SP3
依存するページ
バージョン
edit/refer

メッセージ

回答ページでは行末に「~」を付加する必要はありません

お世話になっております。

「 SimpleFileAccess 」を用いてFileを削除する下記Macro Codeを実行したところError Messageが表示されます。

Sub oFilekillSFA
	Dim oSimpleFileAccess
	Dim oToFile
	Dim oToURL
		oSimpleFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess")
		oToFile = "c:\temp\test_copy1.csv"
		oToURL = ConvertToUrl(oToFile)
			If oSimpleFileAccess.exists(oToURL) then
				oAns = msgbox( oToFile & "を本当に削除しますか?", 4, "Confirm to delete file")
				If oAns = 6 then
					oSimpleFileAccess.kill(oToURL)
				End If
			else
				MsgBox( oToFile & " は存在しません", 0, "Caution !!")
			End if
End Sub
oFileExistsSFA_error.png

同じく「 SimpleFileAccess 」を用いたCopyは問題無く出来ております。
つきましては、対処法をご教示頂けます様お願いします。


自己解決しました。

new_OOo3 (2010-04-17 19:53:41 (土))

誠に申し訳ありません。

対象Fileが読み取り専用となっておりました。

お騒がせして申し訳ございません。

お名前:
題名:


添付ファイル: fileoFileExistsSFA_error.png 1025件 [詳細]