質問編集履歴
3
コードの更新
test
CHANGED
File without changes
|
test
CHANGED
@@ -40,9 +40,7 @@
|
|
40
40
|
|
41
41
|
lstFile.Items.Clear()
|
42
42
|
|
43
|
-
|
43
|
+
lstFile.Items.AddRange(files)
|
44
|
-
|
45
|
-
~~
|
46
44
|
|
47
45
|
End If
|
48
46
|
|
2
コードの修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -40,9 +40,9 @@
|
|
40
40
|
|
41
41
|
lstFile.Items.Clear()
|
42
42
|
|
43
|
-
lstFile.Items.AddRange(files)
|
43
|
+
~~lstFile.Items.AddRange(files)
|
44
44
|
|
45
|
-
|
45
|
+
~~
|
46
46
|
|
47
47
|
End If
|
48
48
|
|
1
コードの修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -3,6 +3,14 @@
|
|
3
3
|
調べたところPath.GetFileName() を使えばできると書かれていたのですが、どのようにすればよいのでしょうか。
|
4
4
|
|
5
5
|
コードは以下のようになっております。
|
6
|
+
|
7
|
+
|
8
|
+
|
9
|
+
※追記
|
10
|
+
|
11
|
+
ListBoxへの表示をAddRange()からAdd()に変更しました。
|
12
|
+
|
13
|
+
修正版のコードが最新のものとなっています。
|
6
14
|
|
7
15
|
```ここに言語を入力
|
8
16
|
|
@@ -39,3 +47,39 @@
|
|
39
47
|
End If
|
40
48
|
|
41
49
|
```
|
50
|
+
|
51
|
+
```ここに言語を入力
|
52
|
+
|
53
|
+
コード(修正済み)
|
54
|
+
|
55
|
+
Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()
|
56
|
+
|
57
|
+
'フォルダ選択画面を表示し、OKボタンが押下たとき選択フォルダのパスを表示
|
58
|
+
|
59
|
+
If fbd.ShowDialog() = DialogResult.OK Then
|
60
|
+
|
61
|
+
txtFolder.Text = fbd.SelectedPath
|
62
|
+
|
63
|
+
|
64
|
+
|
65
|
+
'フォルダ内の一覧をパス形式で配列に取得
|
66
|
+
|
67
|
+
Dim filePath() As String = Directory.GetFiles(
|
68
|
+
|
69
|
+
txtFolder.Text, "*", SearchOption.TopDirectoryOnly)
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
'配列をListBoxへ表示
|
74
|
+
|
75
|
+
lstFile.Items.Clear()
|
76
|
+
|
77
|
+
For i As Integer = 0 To UBound(filePath)
|
78
|
+
|
79
|
+
lstFile.Items.Add(filePath(i))
|
80
|
+
|
81
|
+
Next
|
82
|
+
|
83
|
+
End If
|
84
|
+
|
85
|
+
```
|