質問編集履歴
6
質問の修正
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
フォルダ内のファイル一覧表示
|
|
1
|
+
フォルダ内のファイル一覧表示、削除
|
body
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成しています。
|
|
3
|
-
コードの記述の仕方で躓いていため教えていただきたいです。
|
|
3
|
+
コードの記述の仕方で躓いているため教えていただきたいです。
|
|
4
4
|
|
|
5
5
|
※追記
|
|
6
6
|
ListBoxにファイル一覧を表示させるところまでは実装できました。
|
5
質問の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,10 +1,21 @@
|
|
|
1
|
+
### 前提・実現したいこと
|
|
1
2
|
フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成しています。
|
|
2
|
-
最後のファイルの削除の部分なのですが、削除ボタンをクリックしても一覧に残ったままとなってしまいます（削除自体は出来ています）。
|
|
3
|
-
|
|
3
|
+
コードの記述の仕方で躓いていため教えていただきたいです。
|
|
4
4
|
|
|
5
|
+
※追記
|
|
6
|
+
ListBoxにファイル一覧を表示させるところまでは実装できました。
|
|
7
|
+
ファイル削除の部分なのですが、削除ボタン押下のタイミングで一覧から消すようにしたいのですが、現状再実行しないと消えない状態となっております。
|
|
8
|
+
|
|
9
|
+
|
|
10
|
+
### 該当のソースコード
|
|
11
|
+
|
|
5
|
-
```ここに言語を入力
|
|
12
|
+
```ここに言語名を入力
|
|
6
|
-
コード
|
|
13
|
+
ソースコード
|
|
14
|
+
Imports System.IO
|
|
15
|
+
|
|
16
|
+
Public Class Form1
|
|
17
|
+
|
|
7
|
-
Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
|
|
18
|
+
Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
|
|
8
19
|
Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()
|
|
9
20
|
lstFile.Items.Clear()
|
|
10
21
|
'フォルダ選択画面を表示し、OKボタンが押されたとき選択フォルダのパスを表示
|
|
@@ -31,6 +42,4 @@
|
|
|
31
42
|
Application.Exit()
|
|
32
43
|
End Sub
|
|
33
44
|
End Class
|
|
34
|
-
|
|
35
|
-
|
|
36
45
|
```
|
4
質問の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,13 +1,10 @@
|
|
|
1
|
-
フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成し
|
|
1
|
+
フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成しています。
|
|
2
|
+
最後のファイルの削除の部分なのですが、削除ボタンをクリックしても一覧に残ったままとなってしまいます（削除自体は出来ています）。
|
|
2
|
-
|
|
3
|
+
ボタン押下のタイミングで一覧から削除するにはどうすればよいのでしょうか。
|
|
3
|
-
よろしくお願いいたします。
|
|
4
4
|
|
|
5
|
-
※現状指定したフォルダのパスの表示とファイルの一覧表示は出来ている状態です。選択したファイルの削除が調べてもよくわからないのでご教示いただけると助かります。
|
|
6
5
|
```ここに言語を入力
|
|
7
6
|
コード
|
|
8
|
-
Public Class Form1
|
|
9
|
-
|
|
10
|
-
|
|
7
|
+
Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
|
|
11
8
|
Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()
|
|
12
9
|
lstFile.Items.Clear()
|
|
13
10
|
'フォルダ選択画面を表示し、OKボタンが押されたとき選択フォルダのパスを表示
|
|
@@ -25,7 +22,7 @@
|
|
|
25
22
|
End Sub
|
|
26
23
|
|
|
27
24
|
Private Sub DeleteFile(sender As Object, e As EventArgs) Handles btnDelete.Click
|
|
28
|
-
Dim SelectedFilePath As String = lstFile.
|
|
25
|
+
Dim SelectedFilePath As String = lstFile.SelectedItem
|
|
29
26
|
'選択したファイルの削除
|
|
30
27
|
File.Delete(SelectedFilePath)
|
|
31
28
|
End Sub
|
|
@@ -35,4 +32,5 @@
|
|
|
35
32
|
End Sub
|
|
36
33
|
End Class
|
|
37
34
|
|
|
35
|
+
|
|
38
36
|
```
|
3
質問の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
コードの書き方とそのコードの意味や説明をしていただけないでしょうか。
|
|
3
3
|
よろしくお願いいたします。
|
|
4
4
|
|
|
5
|
-
※現状指定したフォルダのパスの表示とファイルの一覧表示は出来ている状態です。選択したファイルの削除が調べてもよくわからないのでご教示いただけると
|
|
5
|
+
※現状指定したフォルダのパスの表示とファイルの一覧表示は出来ている状態です。選択したファイルの削除が調べてもよくわからないのでご教示いただけると助かります。
|
|
6
6
|
```ここに言語を入力
|
|
7
7
|
コード
|
|
8
8
|
Public Class Form1
|
|
@@ -25,7 +25,13 @@
|
|
|
25
25
|
End Sub
|
|
26
26
|
|
|
27
27
|
Private Sub DeleteFile(sender As Object, e As EventArgs) Handles btnDelete.Click
|
|
28
|
+
Dim SelectedFilePath As String = lstFile.
|
|
29
|
+
'選択したファイルの削除
|
|
30
|
+
File.Delete(SelectedFilePath)
|
|
31
|
+
End Sub
|
|
28
32
|
|
|
33
|
+
Private Sub ExitProc(sender As Object, e As EventArgs) Handles mnuFX.Click
|
|
34
|
+
Application.Exit()
|
|
29
35
|
End Sub
|
|
30
36
|
End Class
|
|
31
37
|
|
2
コードの更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,26 +1,31 @@
|
|
|
1
|
-
フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成したい
|
|
1
|
+
フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成したいです。
|
|
2
2
|
コードの書き方とそのコードの意味や説明をしていただけないでしょうか。
|
|
3
3
|
よろしくお願いいたします。
|
|
4
4
|
|
|
5
|
-
※現状指定したフォルダのパス
|
|
5
|
+
※現状指定したフォルダのパスの表示とファイルの一覧表示は出来ている状態です。選択したファイルの削除が調べてもよくわからないのでご教示いただけると嬉しいです。
|
|
6
6
|
```ここに言語を入力
|
|
7
7
|
コード
|
|
8
8
|
Public Class Form1
|
|
9
9
|
|
|
10
10
|
Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
|
|
11
11
|
Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()
|
|
12
|
+
lstFile.Items.Clear()
|
|
12
13
|
'フォルダ選択画面を表示し、OKボタンが押されたとき選択フォルダのパスを表示
|
|
13
14
|
If fbd.ShowDialog() = DialogResult.OK Then
|
|
14
15
|
txtFolder.Text = fbd.SelectedPath
|
|
16
|
+
|
|
17
|
+
'フォルダ内の一覧を配列に取得
|
|
18
|
+
Dim files As String() = Directory.GetFiles(
|
|
19
|
+
txtFolder.Text, "*", SearchOption.TopDirectoryOnly
|
|
20
|
+
)
|
|
21
|
+
|
|
22
|
+
'配列をListBoxへ表示
|
|
23
|
+
lstFile.Items.AddRange(files)
|
|
15
24
|
End If
|
|
25
|
+
End Sub
|
|
16
26
|
|
|
17
|
-
'フォルダ内の一覧を配列に取得
|
|
18
|
-
Dim files As String() = Directory.GetFiles(
|
|
19
|
-
|
|
27
|
+
Private Sub DeleteFile(sender As Object, e As EventArgs) Handles btnDelete.Click
|
|
20
|
-
)
|
|
21
28
|
|
|
22
|
-
'配列をListBoxへ表示
|
|
23
|
-
lstFile.Items.AddRange(files)
|
|
24
29
|
End Sub
|
|
25
30
|
End Class
|
|
26
31
|
|
1
コードの追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,3 +1,27 @@
|
|
|
1
1
|
フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成したいのですが分かりません。
|
|
2
2
|
コードの書き方とそのコードの意味や説明をしていただけないでしょうか。
|
|
3
|
-
よろしくお願いいたします。
|
|
3
|
+
よろしくお願いいたします。
|
|
4
|
+
|
|
5
|
+
※現状指定したフォルダのパスは表示できるのですが、ファイル一覧が上手くいっていない状態となっております。
|
|
6
|
+
```ここに言語を入力
|
|
7
|
+
コード
|
|
8
|
+
Public Class Form1
|
|
9
|
+
|
|
10
|
+
Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
|
|
11
|
+
Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()
|
|
12
|
+
'フォルダ選択画面を表示し、OKボタンが押されたとき選択フォルダのパスを表示
|
|
13
|
+
If fbd.ShowDialog() = DialogResult.OK Then
|
|
14
|
+
txtFolder.Text = fbd.SelectedPath
|
|
15
|
+
End If
|
|
16
|
+
|
|
17
|
+
'フォルダ内の一覧を配列に取得
|
|
18
|
+
Dim files As String() = Directory.GetFiles(
|
|
19
|
+
txtFolder.Text, "*", SearchOption.TopDirectoryOnly
|
|
20
|
+
)
|
|
21
|
+
|
|
22
|
+
'配列をListBoxへ表示
|
|
23
|
+
lstFile.Items.AddRange(files)
|
|
24
|
+
End Sub
|
|
25
|
+
End Class
|
|
26
|
+
|
|
27
|
+
```
|