|
▼VBA初心者 さん:
ponpon です。
手元に.dbcファイルなるものが手元になく、
私には、お手上げです。
後は、常連さんの登場を待ちましょう。
ただ単に.dbcファイルをコピーして拡張子を変えるだけなら
Sub test()
Dim oldFile As String
Dim newFile As String
oldFile = Application.GetOpenFilename( _
FileFilter:="DBCファイル,*.dbc,すべてのファイル,*.*")
If oldFile = "False" Then Exit Sub
newFile = Replace(oldFile, Right(oldFile, 3), "txt")
FileCopy oldFile, newFile
End Sub
>textファイルの読み方は分かっているので、
>任意のDBCファイルを選択したら、同一フォルダ内にDBCファイルをコピーして、
>拡張子を".DBC"から".TXT"に変換したファイルを作成したいのですが、
>出来ますでしょうか?
>つまり、同じファイル名の拡張子違いのファイルが2つある状態にしたいのです。
|
|