0
以下のスクリプトは、カンマ（,）の後に余分なスペースを削除しています。私の要件は以下の通りです。スクリプトに最新のファイル名を動的に取り込む方法
FILENAMEをmyFile属性にコピーするには、次のようにします。手動で置くのではなく、最新のファイルをプルするために以下のスクリプトを変更できますか？
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim filetxt
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const fmtUnicode = -1, fmtASCII = 0, fmtDefault = -2
Set re = New RegExp
Dim strInput
Dim Matches
Dim Match
Dim myFile
'change the following file path to point to your file
myFile = "\\dgggsym\g_t_t_t$\CDO_MTK_SMT\Business Performance Reporting\Hari krishna\csvtotab\usp_GO_CallDetailsByVqueue_2016-09-27.csv"
re.IgnoreCase = True
Set filetxt = objFSO.OpenTextFile(myFile, ForReading, False, fmtDefault)
Dim arrFileLines()
i = 0
Do Until filetxt.AtEndOfStream
ReDim Preserve arrFileLines(i)
arrFileLines(i) = filetxt.ReadLine
strInput = arrFileLines(i)
'WScript.Echo(strInput)
re.Pattern = "\s"
re.Global = True
arrFileLines(i) = re.Replace(strInput, "")
'WScript.Echo(arrFileLines(i))
i = i + 1
Loop
filetxt.Close
Set filetxt = objFSO.OpenTextFile(myFile, ForWriting, False, fmtDefault)
For j = LBound(arrFileLines) To UBound(arrFileLines)
filetxt.WriteLine(arrFileLines(j))
Next
filetxt.Close
Set filetxt = Nothing
*以下のスクリプトを手動で入力するのではなく、最新のファイルをプルするように変更できますか？*可能です。私たちはあなたのためにそれをしますか？あなたの努力を見ることなく、あまり起こりそうもないでしょう。あなたはこれを自分で解決しようとしましたか？あなたの試みの結果は何でしたか？彼らはあなたが期待していたものとどう違っていましたか？どのように最初の場所で「最新のファイル」を特定していますか？ –
そして、私のパス strDest =私の道与え intDays = 1 --takes最近のファイル（1日） 設定objFSO与えられた= strSource指定されたパスにソースからファイルを取り出し、私はコードの下に使用している最新のパスを識別するために、 =のCreateObject（ "Scripting.FileSystemObjectオブジェクト"） 設定objFolder = objFSO.GetFolder（strSource） エラーの各について次 設定objFiles = objFolder.Files dtmEarliestDate = DateAdd関数（今 "D"、-intDays、（）） を再開objFilesの場合objFiles objFile.DateLastModified> CDate（dtmEarliestDate）Then objFSO.copyFile objFile、strDest –
@KrishNa - コードを投稿する必要がある場合は、あなたの質問にはコメントとして編集しないでください。これにより、コードを読みやすくできるように書式設定することができます。 – FloatingKiwi