C# と VB.NET の質問掲示板

皆様こんにちは。
タイトルの通り、フォルダ内のテキストファイルの文字列を変換する方法について
ご質問させていただきます。
ファイルを検索するところまでは、出来たのですが
文字列を検索して、置き換えるところがうまくいきません。
最後にモジュールを貼らせて頂きますので、識者の皆様どうかご教授ください。

【やりたいこと】
1.特定のフォルダ内及びサブフォルダ内の特定拡張子のファイルを全て検索する。
2.該当のファイル内にある特定の文字列を別の文字列に置き換える。

【備考】
該当ファイルは、テキストで編集できる１レコード80バイトの
固定長ファイルと考えます。

【モジュール】

Public Const Old_Word1 = "SERVER="
Public Const New_Word1 = "CONNECTION="
Public Const Out_Dir = "C:\apps\"
Option Compare Text
                
Type Record
   Len_Data As String * 80
End Type
'
'
'
Sub Main()
    Dim Out_SubDir As String
    Dim WK_Msg As String
    Dim FSO As Object, Fol As Object, MyFol As Object
    Dim MyFile As Object

    ChDir Out_Dir
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Fol = FSO.GetFolder(Out_Dir)
    For Each MyFol In Fol.SubFolders
        Out_SubDir = Out_Dir & MyFol.Name

        For Each MyFile In MyFol.Files
→ここから
            If MyFile.Name Like "*.ACX" Then
                out_file = Out_SubDir & "\" & MyFile.Name
                Dim MyRecord As Record, RecordNumber
                Open out_file For Random As #2 Len = Len(MyRecord)
                For RecordNumber = 1 To 999
                    Get #2, RecordNumber, MyRecord
                    Debug.Print Seek(2)
                    If Replace(MyRecord.Len_Data, Old_Word1, New_Word1) <> Null Then
                        Put #2, RecordNumber, MyRecord.Len_Data
                      Else
                        Put #2, RecordNumber, MyRecord.Len_Data
                    End If
                Next RecordNumber
                Close #2
            End If
←ここまでがわかりません。
        Next
    Next

    Set Fol = Nothing: Set FSO = Nothing
    Close #1
End Sub

よろしくお願い致します。
以上です。

■No2704 (774RR さん) に返信
> ちゃちゃ
> 正直、刺身さばきたい時に、のこぎり持ってきてるような気がする

まぁ↓を見るに勉強が目的みたいなので（＾＾；
http://bbs.wankuma.com/index.cgi?mode=al2&namber=2582#9
しかし、考えてみると、何故今からVB6を勉強したいのかってのも気になるとこですが。
開発環境が無いってことなら、VB2005 Express Editionなら無償で入手できますし。

本題に関しては、何がわからないのかわからない、というのが正直な所感ですが、
とりあえずぱっと見気になるとこが２箇所。

> For RecordNumber = 1 To 999

無条件に999回ループさせてるのは何のため？

> If Replace(MyRecord.Len_Data, Old_Word1, New_Word1) <> Null Then
>     Put #2, RecordNumber, MyRecord.Len_Data
> Else
>     Put #2, RecordNumber, MyRecord.Len_Data
> End If

IfブロックとElseブロックの内容が同じ。これぢゃIfの意味ない。

既出ですが、どうせならVB.NETやC#に移行してみては。
#ちなみにインストールするときはISOイメージよりWebセットアップのほうが若干速いです。

蛇足までにVB.NETだと、
Imports System
Imports System.IO
Imports System.Text.Regex

Namespace Replace
	Class Program
		Public Shared Sub ReplaceInDirectory(ByVal dir As String, ByVal pat As String, ByVal old As String, ByVal dest As String, ByVal rec As Boolean, ByVal backup As Boolean)
			'正規表現を生成
			Dim rex As New Regex(pat)

			'すべてのファイルを反復処理
			Dim files As String() = Directory.GetFiles(dir)
			For Each file As String In files
				'正規表現に一致するならば
				If rex.IsMatch(Path.GetFileName(file)) Then
					'一時ファイルと予備ファイルのファイル名を生成
					Dim tmp As String = file + ".tmp"
					Dim bak As String = file + ".bak"

					'対象ファイルを開く
					Using sr As New StreamReader(file)
						'一時ファイルを開く
						Using sw As streamWriter = New StreamWriter(tmp)
							'ファイルの終端まで
							While sr.EndOfStream
								'対象ファイルから次の行を読み込み
								Dim line As String = sr.ReadLine()
								'読み込んだ行を置換
								line = line.Replace(old, dest)
								'置換した行を一時ファイルに書き込み
								sw.WriteLine(line)
							End While

							'各ファイルを閉じる
							sr.Close()
							sw.Close()
						End Using
					End Using

					'バックアップを保存
					If backup Then
						File.Move(file, bak)
					End If
					'対象ファイルに一時ファイルを上書き
					File.Move(tmp, file)
				End If
			Next

			'再帰処理
			If rec Then
				'すべてのサブディレクトリを反復処理
				Dim subdirs As String() = Directory.GetDirectories(dir)
				For Each subdir As String In subdirs
					ReplaceInDirectory(subdir, pat, old, dest, rec, backup)
				Next
			End If
		End Sub

		<STAThread()> _
		Public Shared Sub Main(ByVal args As String())
			Dim old As String = "SERVER="
			Dim dest As String = "CONNECTION="
			Dim dir As String = "C:\apps\"

			ReplaceInDirectory(old, "\.txt$", old, dest, False, False)
		End Sub
	End Class
End Namespace

みたいになります。