0

書き込み先のファイルに.build拡張子を書き出すデータソーターを作成したので、特定のファイルにデータを書き込んでいるときに、それを持ち上げようとするものは何もありません。

最後に、プログラムを閉じる前に、.build拡張子を持つものの名前を.datに変更したいと思います。

 For Each f In outputFiles

        For Each r In TrailerRecords

            ' Set the bill count variable
            If r.VariableField Then
                r.Fields(1) = String.Format("{0:000000}", f.Value)
            End If

            ' Write the trailer record to the output file
            File.AppendAllText(f.Key, r.ToString() & vbLf)
        Next

        ' Rename all.build files to .dat

NEEDS TO GO HERE

        ' Copy each output file to the backup directory
        File.Copy(f.Key, Path.Combine(backupFolder, Path.GetFileName(f.Key)), True)
    Next
End Sub
4

1 に答える 1

5

ファイルを取得して名前を変更します。

Dim auxFile as String
Dim files() As String = IO.Directory.GetFiles(myFolderPath, "*.build")

For Each sFile As String In files
    auxFile = IO.Path.GetFileNameWithoutExtension(sFile) & ".dat"
    My.Computer.FileSystem.RenameFile(sFile, auxFile)
Next

File.Copy()代わりに overwrite プロパティを使用できますTrue。

MSDN のドキュメントを参照してください。

于 2013-03-12T13:12:51.077 に答える