回答編集履歴
2
加筆修正
test
CHANGED
@@ -27,3 +27,7 @@
|
|
27
27
|
みたいな。
|
28
28
|
|
29
29
|
|
30
|
+
|
31
|
+
それと、もしも`With`を使うなら`End With`するのも忘れずに。
|
32
|
+
|
33
|
+
オブジェクトを初期化したら、`Set fso = Nothing`とNothingを詰めるのを忘れずに。
|
1
加筆修正
test
CHANGED
@@ -1,3 +1,29 @@
|
|
1
1
|
GetFo**r**der → GetFo**l**der
|
2
2
|
|
3
3
|
とかいう話?
|
4
|
+
|
5
|
+
|
6
|
+
|
7
|
+
個人的には、FileSystemObjectオブジェクトやFolderオブジェクトを
|
8
|
+
|
9
|
+
ちゃんと変数で管理した方がしっくりきます。
|
10
|
+
|
11
|
+
|
12
|
+
|
13
|
+
```VBA
|
14
|
+
|
15
|
+
Dim fso As Scripting.FileSystemObject
|
16
|
+
|
17
|
+
Dim d As Scripting.Folder
|
18
|
+
|
19
|
+
Set fso = CreateObject("Scripting.FileSystemObject")
|
20
|
+
|
21
|
+
Set d = fso.GetFolder(ActiveSheet.Range("C4").Value)
|
22
|
+
|
23
|
+
```
|
24
|
+
|
25
|
+
|
26
|
+
|
27
|
+
みたいな。
|
28
|
+
|
29
|
+
|