2

.txtから1行のテキストをコピーして、別のファイルに貼り付けて保存しようとしています。私が持っているコードは、貼り付けセクションでエラーを出し続けます。私はこれに完全に慣れておらず、進むにつれて学んでいます。Host=私の主な目標は、情報を別のファイルに貼り付けることです。しかし、私は最初にこれを下げる必要があります。

これがこれまでの私のコードです

 ///OPEN FILE and READ
Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\vnc\vnc.txt",1)
strFileText = objFileToRead.ReadAll()
objFileToRead.Close


' ///PASTE 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFileToWrite = objFSO.OpenTextFile("c:\vnc\testfile.vnc", 2)
objFileToWrite.Write strFileText
objFileToWrite.Close
4

2 に答える 2

2

これは私のために働く：

'//OPEN FILE and READ
Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\vnc.txt",1)
strFileText = objFileToRead.ReadAll()
objFileToRead.Close


' ///PASTE 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFileToWrite = objFSO.OpenTextFile("c:\vnc.vnc", 2)
objFileToWrite.Write strFileText
objFileToWrite.Close

私が行った唯一の違いは、サブフォルダーを削除し、C のルートに配置したことです。スクリプトは機能しました。

ソース ファイルとターゲット ファイルの両方を手動で作成しました。両方のファイルが存在し、ロックされていない場合 (別のアプリケーションでファイルを開いた/ロックしたかのように)、その VNC フォルダーのアクセス許可が問題である必要があります。

于 2013-02-21T16:43:21.623 に答える