faq/5/330

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

ページ	OpenOffice.org FAQの登録ページ
投稿者	new_OOo3
分類	Q&A要望不具合メンテナンス
優先順位	緊急重要普通低
状態	質問回答中完了完了回答待ち議論中Issues重複却下保留再現不可
カテゴリー	インストール全体Writer ワープロCalc 表計算Impress プレゼンテーションDraw 図形描画Base データベースHTMLエディタMath 数式エディタLinux版StarSuiteその他
投稿日	2010-04-17 19:07:40 (土)
OS	WindowsXP SP3
依存するページ
バージョン	3.4.53.4.43.4.33.4.23.4.13.4.03.3.53.3.43.3.33.3.23.3.13.3.03.2.13.2.03.1.13.1.03.0.13.0.02.4.32.4.22.4.12.42.3.12.32.2.12.22.12.0.42.0.32.0.22.0.12.01.1.51.1.41.1.31.1.21.11.0.31.0.21.0.11.0Dev3.3Dev3.2Dev3.1Dev3.0不明

メッセージ †

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

「 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

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

自己解決しました。 †

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

誠に申し訳ありません。

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

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