回答編集履歴
1
誤字修正 コメント追加
answer
CHANGED
|
@@ -7,7 +7,7 @@
|
|
|
7
7
|
Private OpenFileDialog1 As New OpenFileDialog()
|
|
8
8
|
Private sr As StreamReader
|
|
9
9
|
Private sw As StreamWriter
|
|
10
|
-
Private FCopyName As String
|
|
10
|
+
Private FCopyName As String 'フォルダ階層とファイル名の末尾に2を追加した名前のパス
|
|
11
11
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
12
12
|
|
|
13
13
|
If OpenDlg() Then
|
|
@@ -21,7 +21,7 @@
|
|
|
21
21
|
|
|
22
22
|
Private Function OpenDlg() As Boolean
|
|
23
23
|
|
|
24
|
-
Dim okng As Boolean = True
|
|
24
|
+
Dim okng As Boolean = True '開く=True、キャンセル=Falseを返す
|
|
25
25
|
|
|
26
26
|
With OpenFileDialog1
|
|
27
27
|
'選択ダイアログを開く
|
|
@@ -65,7 +65,7 @@
|
|
|
65
65
|
|
|
66
66
|
Try
|
|
67
67
|
sr = New StreamReader(OpenFileDialog1.FileName, Encoding.GetEncoding("Shift-JIS"))
|
|
68
|
-
'ファイルが無ければ
|
|
68
|
+
'ファイルが無ければフォルダ内のファイル名の末尾に2を付けたファイル名で作成し、すでに存在していれば上書きする。
|
|
69
69
|
sw = New StreamWriter(FCopyName, False, Encoding.GetEncoding("Shift-JIS"))
|
|
70
70
|
|
|
71
71
|
'読み込んだファイルの最終行になるまで繰り返し
|