如何动态地将最近的文件名拉到脚本

我有下面的脚本，它会在逗号后删除多余的空格（,）。我的要求如下。如何动态地将最近的文件名拉到脚本

要将最新的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

来源

2016-10-11 Krish Na

*我们可以改变下面的脚本来拉最近的文件，而不是我手动放？*当然可以。我们会为你做吗？不大可能没有看到你的努力。你试图自己解决这个问题？你的尝试结果是什么？他们与你的预期有什么不同？您如何识别“最近的文件”呢？ –

并确定我在下面从源会将文件给strSource路径代码中使用最新的路径=给我的路径 strDest =给我的路径 intDays = 1 --takes最近的文件（1天）设置objFSO =的CreateObject（ “Scripting.FileSystemObject的”）集objFolder = objFSO.GetFolder（strSource）上的错误继续下一步集objFiles = objFolder.Files dtmEarliestDate =使用DateAdd（ “d”，-intDays，现在（））对于每个objFile在objFiles 如果objFile.DateLastModified> CDate（dtmEarliestDate）然后 objFSO.copyFile objFile，strDest –

@KrishNa - 如果您需要发布更多的代码，那么作为一个n编辑您的问题，而不是作为评论。这将允许您格式化代码，使其可读。 – FloatingKiwi

我是能够得到解决

我下面用来获取文件名附加到路径。

FOR/F “delims =” %%中的x（ 'DIR/OD/A-d/B'）不设定为 “最近= %% x” 的

并用于！最近！获取名称。

来源

2016-10-12 03:25:46

如何动态地将最近的文件名拉到脚本

回答

相关问题