teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問フォルダ内のファイル一覧表示、削除

編集履歴

質問編集履歴

6

質問の修正

2020/08/11 05:03

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- フォルダ内のファイル一覧表示
1
+ フォルダ内のファイル一覧表示、削除
test CHANGED
@@ -2,7 +2,7 @@
2
2
 
3
3
  フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成しています。
4
4
 
5
- コードの記述の仕方で躓いていため教えていただきたいです。
5
+ コードの記述の仕方で躓いているため教えていただきたいです。
6
6
 
7
7
 
8
8
 

5

質問の修正

2020/08/11 05:03

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -1,16 +1,38 @@
1
+ ### 前提・実現したいこと
2
+
1
3
  フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成しています。
2
4
 
3
- 最後のファイルの削除の部分なのですが、削除ボタンをクリックしても一覧に残ったままとなってしまいます（削除自体は出来ています）。
4
-
5
- ボタン押下のタイミングで一覧から削除するにはどうすればよいのでしょうか。
5
+ コードの記述の仕方で躓いていため教えていただきたいです。
6
6
 
7
7
 
8
8
 
9
- ```ここに言語を入力
9
+ ※追記
10
10
 
11
- コード
11
+ ListBoxにファイル一覧を表示させるところまでは実装できました。
12
12
 
13
+ ファイル削除の部分なのですが、削除ボタン押下のタイミングで一覧から消すようにしたいのですが、現状再実行しないと消えない状態となっております。
14
+
15
+
16
+
17
+
18
+
19
+ ### 該当のソースコード
20
+
21
+
22
+
23
+ ```ここに言語名を入力
24
+
25
+ ソースコード
26
+
27
+ Imports System.IO
28
+
29
+
30
+
31
+ Public Class Form1
32
+
33
+
34
+
13
- Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
35
+ Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
14
36
 
15
37
  Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()
16
38
 
@@ -64,8 +86,4 @@
64
86
 
65
87
  End Class
66
88
 
67
-
68
-
69
-
70
-
71
89
  ```

4

質問の修正

2020/08/11 04:41

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -1,22 +1,16 @@
1
- フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成したいです。
1
+ フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成しています。
2
2
 
3
- コードの書き方とそのコードの意味や説明をしていただけないでしょうか。
3
+ 最後のファイルの削除の部分なのですが、削除ボタンをクリックしても一覧に残ったままとなってしまいます（削除自体は出来ています）。
4
4
 
5
- よろしくお願いいたします。
5
+ ボタン押下のタイミングで一覧から削除するにはどうすればよいのでしょうか。
6
6
 
7
7
 
8
-
9
- ※現状指定したフォルダのパスの表示とファイルの一覧表示は出来ている状態です。選択したファイルの削除が調べてもよくわからないのでご教示いただけると助かります。
10
8
 
11
9
  ```ここに言語を入力
12
10
 
13
11
  コード
14
12
 
15
- Public Class Form1
16
-
17
-
18
-
19
- Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
13
+ Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
20
14
 
21
15
  Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()
22
16
 
@@ -52,7 +46,7 @@
52
46
 
53
47
  Private Sub DeleteFile(sender As Object, e As EventArgs) Handles btnDelete.Click
54
48
 
55
- Dim SelectedFilePath As String = lstFile.
49
+ Dim SelectedFilePath As String = lstFile.SelectedItem
56
50
 
57
51
  '選択したファイルの削除
58
52
 
@@ -72,4 +66,6 @@
72
66
 
73
67
 
74
68
 
69
+
70
+
75
71
  ```

3

質問の修正

2020/08/11 04:26

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -6,7 +6,7 @@
6
6
 
7
7
 
8
8
 
9
- ※現状指定したフォルダのパスの表示とファイルの一覧表示は出来ている状態です。選択したファイルの削除が調べてもよくわからないのでご教示いただけると嬉しいです。
9
+ ※現状指定したフォルダのパスの表示とファイルの一覧表示は出来ている状態です。選択したファイルの削除が調べてもよくわからないのでご教示いただけると助かります。
10
10
 
11
11
  ```ここに言語を入力
12
12
 
@@ -52,7 +52,19 @@
52
52
 
53
53
  Private Sub DeleteFile(sender As Object, e As EventArgs) Handles btnDelete.Click
54
54
 
55
+ Dim SelectedFilePath As String = lstFile.
55
56
 
57
+ '選択したファイルの削除
58
+
59
+ File.Delete(SelectedFilePath)
60
+
61
+ End Sub
62
+
63
+
64
+
65
+ Private Sub ExitProc(sender As Object, e As EventArgs) Handles mnuFX.Click
66
+
67
+ Application.Exit()
56
68
 
57
69
  End Sub
58
70
 

2

コードの更新

2020/08/11 04:10

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,4 @@
1
- フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成したいのですが分かりません。
1
+ フォルダ検索を行い、選択したフォルダのパスをテキストボックスに表示し、そのフォルダ内のファイルをリストボックスに一覧表示させる&選択したファイルを削除（ボタンで）する、というアプリケーションを作成したいです。
2
2
 
3
3
  コードの書き方とそのコードの意味や説明をしていただけないでしょうか。
4
4
 
@@ -6,7 +6,7 @@
6
6
 
7
7
 
8
8
 
9
- ※現状指定したフォルダのパスは表示できるのですが、ファイル一覧が上手くいっていない状態となっております。
9
+ ※現状指定したフォルダのパスの表示とファイルの一覧表示は出来ている状態です。選択したファイルの削除が調べてもよくわからないのでご教示いただけると嬉しいです。
10
10
 
11
11
  ```ここに言語を入力
12
12
 
@@ -20,29 +20,39 @@
20
20
 
21
21
  Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()
22
22
 
23
+ lstFile.Items.Clear()
24
+
23
25
  'フォルダ選択画面を表示し、OKボタンが押されたとき選択フォルダのパスを表示
24
26
 
25
27
  If fbd.ShowDialog() = DialogResult.OK Then
26
28
 
27
29
  txtFolder.Text = fbd.SelectedPath
28
30
 
31
+
32
+
29
- End If
33
+ 'フォルダ内の一覧を配列に取得
34
+
35
+ Dim files As String() = Directory.GetFiles(
36
+
37
+ txtFolder.Text, "*", SearchOption.TopDirectoryOnly
38
+
39
+ )
30
40
 
31
41
 
32
42
 
33
- 'フォルダ内の一覧を配列に取得
43
+ '配列をListBoxへ表示
34
44
 
35
- Dim files As String() = Directory.GetFiles(
45
+ lstFile.Items.AddRange(files)
36
46
 
37
- txtFolder.Text, "*", SearchOption.TopDirectoryOnly
47
+ End If
38
48
 
39
- )
49
+ End Sub
40
50
 
41
51
 
42
52
 
43
- '配列をListBoxへ表示
53
+ Private Sub DeleteFile(sender As Object, e As EventArgs) Handles btnDelete.Click
44
54
 
45
- lstFile.Items.AddRange(files)
55
+
46
56
 
47
57
  End Sub
48
58
 

1

コードの追加

2020/08/11 02:43

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -3,3 +3,51 @@
3
3
  コードの書き方とそのコードの意味や説明をしていただけないでしょうか。
4
4
 
5
5
  よろしくお願いいたします。
6
+
7
+
8
+
9
+ ※現状指定したフォルダのパスは表示できるのですが、ファイル一覧が上手くいっていない状態となっております。
10
+
11
+ ```ここに言語を入力
12
+
13
+ コード
14
+
15
+ Public Class Form1
16
+
17
+
18
+
19
+ Private Sub DoSelect(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
20
+
21
+ Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()
22
+
23
+ 'フォルダ選択画面を表示し、OKボタンが押されたとき選択フォルダのパスを表示
24
+
25
+ If fbd.ShowDialog() = DialogResult.OK Then
26
+
27
+ txtFolder.Text = fbd.SelectedPath
28
+
29
+ End If
30
+
31
+
32
+
33
+ 'フォルダ内の一覧を配列に取得
34
+
35
+ Dim files As String() = Directory.GetFiles(
36
+
37
+ txtFolder.Text, "*", SearchOption.TopDirectoryOnly
38
+
39
+ )
40
+
41
+
42
+
43
+ '配列をListBoxへ表示
44
+
45
+ lstFile.Items.AddRange(files)
46
+
47
+ End Sub
48
+
49
+ End Class
50
+
51
+
52
+
53
+ ```