回答編集履歴

5

追記

2021/10/21 06:02

投稿

退会済みユーザー
test CHANGED
@@ -63,3 +63,5 @@
63
63
  End Sub
64
64
 
65
65
  ```
66
+
67
+ 他関数も対応していないものがありそうな気がしますし、別アプリでもUnicode非対応のものは割とあるので、本当にそういった文字をファイルパスに含めていいのかどうかは良く考えてください。

4

修正

2021/10/21 06:02

投稿

退会済みユーザー
test CHANGED
@@ -1,6 +1,6 @@
1
1
  これでどうでしょう。
2
2
 
3
- VBAのエディタ・デバッガはUnicode非対応なので、Shift_JISで表示出来ない文字は?に化けます。
3
+ VBAのエディタ・デバッガはUnicode非対応なので、Shift_JISで表示出来ない文字は"?"に化けます。
4
4
 
5
5
  ```vba
6
6
 

3

追記

2021/10/21 05:56

投稿

退会済みユーザー
test CHANGED
@@ -1,4 +1,6 @@
1
1
  これでどうでしょう。
2
+
3
+ VBAのエディタ・デバッガはUnicode非対応なので、Shift_JISで表示出来ない文字は?に化けます。
2
4
 
3
5
  ```vba
4
6
 

2

修正

2021/10/21 05:56

投稿

退会済みユーザー
test CHANGED
@@ -26,7 +26,7 @@
26
26
 
27
27
  'FileSystemObjectを使う方法
28
28
 
29
- Private Sub MkDirUnicodeFS(ByVal path As String)
29
+ Private Sub MkDirUnicodeFSO(ByVal path As String)
30
30
 
31
31
  On Error Resume Next
32
32
 
@@ -54,9 +54,9 @@
54
54
 
55
55
 
56
56
 
57
- MkDirUnicodeFS "C:\test\" & c & "_API"
57
+ MkDirUnicodeAPI "C:\test\" & c & "_API"
58
58
 
59
- MkDirUnicodeFS "C:\test\" & c & "_FS"
59
+ MkDirUnicodeFSO "C:\test\" & c & "_FSO"
60
60
 
61
61
  End Sub
62
62
 

1

追記

2021/10/21 05:52

投稿

退会済みユーザー
test CHANGED
@@ -14,9 +14,29 @@
14
14
 
15
15
 
16
16
 
17
+ 'CreateDirectoryWを使う方法
18
+
17
- Private Sub MkDirUnicode(ByVal path As String)
19
+ Private Sub MkDirUnicodeAPI(ByVal path As String)
18
20
 
19
21
  Call CreateDirectoryW(StrPtr(path), 0)
22
+
23
+ End Sub
24
+
25
+
26
+
27
+ 'FileSystemObjectを使う方法
28
+
29
+ Private Sub MkDirUnicodeFS(ByVal path As String)
30
+
31
+ On Error Resume Next
32
+
33
+ Dim fs As Object
34
+
35
+ Set fs = CreateObject("Scripting.FileSystemObject")
36
+
37
+ Call fs.CreateFolder(path)
38
+
39
+ Set fs = Nothing
20
40
 
21
41
  End Sub
22
42
 
@@ -34,7 +54,9 @@
34
54
 
35
55
 
36
56
 
57
+ MkDirUnicodeFS "C:\test\" & c & "_API"
58
+
37
- MkDirUnicode "C:\test\" & c
59
+ MkDirUnicodeFS "C:\test\" & c & "_FS"
38
60
 
39
61
  End Sub
40
62