回答編集履歴
3
コードの修正
test
CHANGED
|
@@ -1,6 +1,14 @@
|
|
|
1
1
|
```VB.NET
|
|
2
2
|
|
|
3
|
+
Dim cul = System.Globalization.CultureInfo.InvariantCulture
|
|
4
|
+
|
|
5
|
+
Dim fileday As String
|
|
6
|
+
|
|
7
|
+
fileday = Today.AddDays(-7).ToString(format:="yyyyMMdd", provider:=cul)
|
|
8
|
+
|
|
9
|
+
|
|
10
|
+
|
|
3
|
-
For Each ss As String In IO.Directory.GetFiles("C:\
|
|
11
|
+
For Each ss As String In IO.Directory.GetFiles("C:\DIR")
|
|
4
12
|
|
|
5
13
|
Dim fi As New IO.FileInfo(ss)
|
|
6
14
|
|
|
@@ -10,8 +18,6 @@
|
|
|
10
18
|
|
|
11
19
|
ListBox1.Items.Add(ss)
|
|
12
20
|
|
|
13
|
-
IO.File.Delete(ss)
|
|
14
|
-
|
|
15
21
|
End If
|
|
16
22
|
|
|
17
23
|
Next
|
|
@@ -20,4 +26,4 @@
|
|
|
20
26
|
|
|
21
27
|
```
|
|
22
28
|
|
|
23
|
-
このようなコードを書いて実行してみたのですがファイルが
|
|
29
|
+
このようなコードを書いて実行してみたのですがファイルがリストボックスにされません。
|
2
詳細
test
CHANGED
|
@@ -1,15 +1,23 @@
|
|
|
1
|
-
|
|
1
|
+
```VB.NET
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
For Each ss As String In IO.Directory.GetFiles("C:\Users\Koyama_Shogo\Desktop\DIR")
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
Dim fi As New IO.FileInfo(ss)
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
Dim ext As String = System.IO.File.GetCreationTime(ss).ToString("yyyyMMdd", cul)
|
|
8
8
|
|
|
9
|
-
|
|
9
|
+
If ext < fileday Then
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
ListBox1.Items.Add(ss)
|
|
12
12
|
|
|
13
|
-
|
|
13
|
+
IO.File.Delete(ss)
|
|
14
14
|
|
|
15
|
+
End If
|
|
16
|
+
|
|
17
|
+
Next
|
|
18
|
+
|
|
19
|
+
|
|
20
|
+
|
|
21
|
+
```
|
|
22
|
+
|
|
15
|
-
こ
|
|
23
|
+
このようなコードを書いて実行してみたのですがファイルが削除されません。
|
1
test
CHANGED
|
@@ -1,3 +1,5 @@
|
|
|
1
|
+
すみません気を付けたいと思います。
|
|
2
|
+
|
|
1
3
|
指定したファイルの削除（http://bbs.wankuma.com/index.cgi?mode=al2&namber=85674）
|
|
2
4
|
|
|
3
5
|
は違います。
|