preload

How to create a unique subfolder (QTP, VBScript)

Posted by Albert Gareev on Dec 16, 2009 | Categories: File System OperationsHow to


Parent page: Service Functions – System (QTP, VBScript)

How to create a unique subfolder

Description

A subfolder is created based on the name pattern and a date-time stamp, e.g. “AccountSearch 2009-10-14 17-18-03”.  You can add extra steps and form the code as a function that returns full path of the newly created subfolder.

sName – name pattern

sFullPath – full path of the newly created subfolder

 


Dim date_now, dd, dt
Dim FSO
Dim sFullPath

date_now = Now

dd = Year(date_now) & "-" & AlignNumber(Month(date_now), 2, "0") & "-" & AlignNumber(Day(date_now), 2, "0")
dt = AlignNumber(Hour(date_now), 2, "0") & "-" & AlignNumber(Minute(date_now), 2, "0") & "-" & AlignNumber(Second(date_now), 2, "0")

If sName = "" Then
sSubfolder = "Data"&" " & dd & " " & dt
Else
sSubfolder = sName & " " & dd & " " & dt
End If
sFullPath = sLogPath & "\" & sSubfolder & "\"

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder(sFullPath)
Set FSO = Nothing


  • 5 responses to "How to create a unique subfolder (QTP, VBScript)"

  • Anonymous
    11th April 2010 at 4:59

    Thanks a lot for all your examples and the information provided in this site, these are really helpful!

  • Leave a Reply

    * Required
    ** Your Email is never shared

Creative Commons Attribution-NonCommercial-NoDerivs 3.0 Unported
This work by Albert Gareev is licensed under a Creative Commons Attribution-NonCommercial-NoDerivs 3.0 Unported.