writetofileプロパティを使用する場合、UFTでファイル名にタイムスタンプを追加する方法

Question

複数の入力（パラメータ化）でテストを実行しているときにタイムスタンプ付きファイルを生成しようとしています。

ファイル名にタイムスタンプを追加する方法を教えてください 例：C:\xxx\xxxx\xxx\Responses\xxx.xlsxこのパスには、ファイルを一意にするためにタイムスタンプを追加する必要があります。

Answer 1

簡単オプション：

Dim sTimeStamp, sPath 
sPath = "C:\Path\To\My\Folder\myFile.xlsx" 

' Get current time and date value and strip out the separators 
sTimeStamp = Replace(Replace(Replace(Now, " ", "_"), "/", ""), ":", "") 

'insert timestamp into file name 
sPath = Replace(sPath, ".xlsx", "_" & sTimeStamp & ".xlsx") 

Debug.Write sPath ' output is C:\Path\To\My\Folder\myFile_20112017_015827.xlsx