回答編集履歴
1
誤字修正 コメント追加
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
Private sw As StreamWriter
|
|
18
18
|
|
|
19
|
-
Private FCopyName As String
|
|
19
|
+
Private FCopyName As String 'フォルダ階層とファイル名の末尾に2を追加した名前のパス
|
|
20
20
|
|
|
21
21
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
22
22
|
|
|
@@ -44,7 +44,7 @@
|
|
|
44
44
|
|
|
45
45
|
|
|
46
46
|
|
|
47
|
-
Dim okng As Boolean = True
|
|
47
|
+
Dim okng As Boolean = True '開く=True、キャンセル=Falseを返す
|
|
48
48
|
|
|
49
49
|
|
|
50
50
|
|
|
@@ -132,7 +132,7 @@
|
|
|
132
132
|
|
|
133
133
|
sr = New StreamReader(OpenFileDialog1.FileName, Encoding.GetEncoding("Shift-JIS"))
|
|
134
134
|
|
|
135
|
-
'ファイルが無ければ
|
|
135
|
+
'ファイルが無ければフォルダ内のファイル名の末尾に2を付けたファイル名で作成し、すでに存在していれば上書きする。
|
|
136
136
|
|
|
137
137
|
sw = New StreamWriter(FCopyName, False, Encoding.GetEncoding("Shift-JIS"))
|
|
138
138
|
|