質問編集履歴
2
誤字の修正をいたしました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,7 +1,9 @@
|
|
|
1
1
|
初めまして。プログラミング初心者です。
|
|
2
2
|
現在VBAを使ってあるプログラムを作成しています。
|
|
3
|
+
|
|
3
4
|
**【実行したい処理】**
|
|
4
|
-
以下のfor文で、
|
|
5
|
+
以下のfor文で、ファイルのパスを取得したい。
|
|
6
|
+
|
|
5
7
|
**【現状】**
|
|
6
8
|
if文内にMsgBoxを入力し、FilePath(i)と入力すればパスがきちんと表示される。
|
|
7
9
|
しかし、For文を抜けた（Nextの後ろ）にMsgBoxを記述すると中身が表示されない。
|
|
@@ -32,5 +34,5 @@
|
|
|
32
34
|
Next
|
|
33
35
|
|
|
34
36
|
```
|
|
35
|
-
|
|
37
|
+
|
|
36
38
|
|
1
【コードの挿入】の選択範囲に誤りがあったため修正いたしました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -12,11 +12,10 @@
|
|
|
12
12
|
追加したいのですが、パスが取得できていない（正しく表示されない）ため
|
|
13
13
|
次に進めません。どうしたらいいのか教えてください。よろしくお願いします。
|
|
14
14
|
|
|
15
|
+
```ここに言語を入力
|
|
15
16
|
Dim FilePath As Variant
|
|
16
17
|
ReDim FilePath(1 To 200)
|
|
17
18
|
|
|
18
|
-
|
|
19
|
-
```ここに言語を入力
|
|
20
19
|
'指定フォルダ内の.txtファイルを探索します
|
|
21
20
|
i = 0
|
|
22
21
|
For Each File In FSO.GetFolder(Fname).Files
|
|
@@ -33,4 +32,5 @@
|
|
|
33
32
|
Next
|
|
34
33
|
|
|
35
34
|
```
|
|
35
|
+
```
|
|
36
36
|
|