回答編集履歴
3
回答が質問の回答として不適切でしたので内容を修正します。
test
CHANGED
|
@@ -1,3 +1,4 @@
|
|
|
1
|
+
|
|
1
2
|
[LibreOffice、自身のファイル情報を取得する。](https://yorozuyanet.hatenablog.com/entry/2020/03/16/193944)
|
|
2
3
|
[(OpenOffice Basic)自身のファイルの最終更新日時を知りたい](https://3ryupg.hatenablog.com/entry/2018/02/23/190000)
|
|
3
4
|
|
|
@@ -19,3 +20,13 @@
|
|
|
19
20
|
|
|
20
21
|
getLocation()でも、取得できるようですが
|
|
21
22
|
何が違うのかはよくわかりません。
|
|
23
|
+
|
|
24
|
+
---
|
|
25
|
+
と回答してしまいましたが、その後試したところ、URLだけでも問題ないようですね。
|
|
26
|
+
回答を消すのがいいのか、どうするのがいいのかよくわからないので、追記で書きますが
|
|
27
|
+
|
|
28
|
+
今回の問題は、エラーメッセージから考えると
|
|
29
|
+
ThisComponentで、オブジェクトが取得できてないことが原因のようですね。
|
|
30
|
+
どのような使い方で提示のコードを実行したのでしょうか。
|
|
31
|
+
|
|
32
|
+
普通に実行するとThisComponentで現在の？ドキュメントを取得できるようです。
|
2
文章の順序を修正
test
CHANGED
|
@@ -10,15 +10,12 @@
|
|
|
10
10
|
が、正しいようです。
|
|
11
11
|
あと
|
|
12
12
|
ファイル名
|
|
13
|
-
|
|
13
|
+
Dir(strFileName ,0)
|
|
14
14
|
ファイルパス
|
|
15
|
+
ConvertFromUrl(strFileName )
|
|
16
|
+
更新日時
|
|
15
|
-
|
|
17
|
+
FileDateTime( ConvertFromUrl(strFileName ) )
|
|
16
18
|
が取得できると書いてありました。
|
|
17
19
|
|
|
18
20
|
getLocation()でも、取得できるようですが
|
|
19
21
|
何が違うのかはよくわかりません。
|
|
20
|
-
|
|
21
|
-
ついでに、更新日時は
|
|
22
|
-
FileDateTime( ConvertFromUrl(strFileName ) )
|
|
23
|
-
のようです。
|
|
24
|
-
|
1
更新日時の取得方法追記
test
CHANGED
|
@@ -1,18 +1,24 @@
|
|
|
1
1
|
[LibreOffice、自身のファイル情報を取得する。](https://yorozuyanet.hatenablog.com/entry/2020/03/16/193944)
|
|
2
|
+
[(OpenOffice Basic)自身のファイルの最終更新日時を知りたい](https://3ryupg.hatenablog.com/entry/2018/02/23/190000)
|
|
2
3
|
|
|
3
4
|
```BASIC
|
|
4
5
|
dim oDoc as Object
|
|
5
6
|
oDoc = ThisComponent
|
|
6
7
|
strFileName = oDoc.getUrl
|
|
8
|
+
|
|
7
9
|
```
|
|
8
|
-
|
|
9
10
|
が、正しいようです。
|
|
10
11
|
あと
|
|
11
12
|
ファイル名
|
|
12
|
-
FileName = Dir(
|
|
13
|
+
FileName = Dir(strFileName ,0)
|
|
13
14
|
ファイルパス
|
|
14
|
-
FilePath = ConvertFromUrl(
|
|
15
|
+
FilePath = ConvertFromUrl(strFileName )
|
|
15
16
|
が取得できると書いてありました。
|
|
16
17
|
|
|
17
18
|
getLocation()でも、取得できるようですが
|
|
18
19
|
何が違うのかはよくわかりません。
|
|
20
|
+
|
|
21
|
+
ついでに、更新日時は
|
|
22
|
+
FileDateTime( ConvertFromUrl(strFileName ) )
|
|
23
|
+
のようです。
|
|
24
|
+
|