0

次の VBScript は txt ファイルを読み取り、その内容を出力します。ただし、äåö などの文字は表示されません。読み方を教えてくれる人はいますか？

Set objFS = CreateObject("Scripting.FileSystemObject") 
inputDir = "c:\input\" 
inpFile = ""
inpFileCount = 0

Set objFolder = objFS.GetFolder(inputDir) 
For Each objFile in objFolder.Files 
    If LCase(objFS.GetExtensionName(objFile.name)) = "txt" Then 
        inpFile = objFile.Path 
        inpFileCount = inpFileCount + 1
    End If 
Next

If inpFileCount > 1 Then
    WScript.Quit(1)
End If

Set objFile = objFS.OpenTextFile(inpFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If strLine <> Empty Then 
        WScript.Echo strLine
    End If
Loop
4

1 に答える 1

0

ファイルをコピー先にコピーするだけで解決できました。良くありませんが、私にはうまくいきます。

If objFS.FileExists(inpFile) Then 
    destinationFile = "D:\Test\refkoder.txt"
    objFS.CopyFile inpFile, destinationFile, True 
End If
于 2012-10-16T12:13:07.070 に答える