質問編集履歴
4
誤字
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
VBAでSharePointの上
|
|
1
|
+
VBAでSharePointの上フォルダの存在を確認したい
|
test
CHANGED
|
File without changes
|
3
誤字
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
SharePoint上に任意のフォルダを作成しておく(例:TEST)
|
|
7
7
|
|
|
8
8
|
【SharePointからリンクコピーで取得したパス】
|
|
9
|
-
https://XXX
|
|
9
|
+
https://XXX.sharepoint.com/:X:/r/sites/XXX/Shared Documents/TEST (「:X:/r」は「X」を小文字に読み替え)
|
|
10
10
|
|
|
11
11
|
【ソース】
|
|
12
12
|
Dim SharePoint_path as string
|
2
文法修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -3,15 +3,18 @@
|
|
|
3
3
|
なにか方法はないでしょうか？？
|
|
4
4
|
|
|
5
5
|
【前提条件】
|
|
6
|
-
SharePoint上に任意のフォルダを作成しておく
|
|
6
|
+
SharePoint上に任意のフォルダを作成しておく(例:TEST)
|
|
7
|
+
|
|
8
|
+
【SharePointからリンクコピーで取得したパス】
|
|
9
|
+
https://XXXX.sharepoint.com/:x:/r/sites/XXXXXX/Shared Documents/TEST
|
|
7
10
|
|
|
8
11
|
【ソース】
|
|
9
12
|
Dim SharePoint_path as string
|
|
10
13
|
Dim fs As Scripting.FileSystemObject
|
|
11
14
|
Dim kekka As String
|
|
12
15
|
Public Sub main()
|
|
13
|
-
SharePoint_path = '
|
|
16
|
+
SharePoint_path = 'SharePointからリンクコピーで取得したパス'
|
|
14
|
-
|
|
17
|
+
SharePoint_path = URLdecode_path(SharePoint_path)'フォルダ名に日本語が使用されているため、URLデコードを実施
|
|
15
18
|
Set fs = New Scripting.FileSystemObject
|
|
16
19
|
kekka = fs.FolderExists(SharePoint_path) 'ここで｢True｣ではなく｢False｣になる
|
|
17
20
|
End Sub
|
1
脱字
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
VBAでSharePointの上のフォルダの存在確認をしたい
|
|
1
|
+
VBAでSharePointの上のフォルダの存在を確認をしたい
|
test
CHANGED
|
File without changes
|