+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: Folder and file name (/Thread-Folder-and-file-name)
Folder and file name - shruti - 12-06-2011
How to dynamically give a folder and filename?
RE: Folder and file name - PrabhatN - 12-06-2011
Hi Shruti,
Do you think your query gives enough info on what you want to achieve?
Please elaborate your need.
RE: Folder and file name - shruti - 12-06-2011
Hi Ptabhta,
i am unable to create the folder name and filename dynamically using QTP for storing the values inside the xl,with the values.
hope this clarifies.
RE: Folder and file name - PrabhatN - 12-06-2011
Hi Shruti,
If i have understood correctly, you want create a folder and inside that folder create an excel file, write some data in the excel file and save it, all dynamically. If that is the case, the code below might help you achieve that:
Code:
Dim folderPath, folderName, xlFileName
//Provide folder path, folder name and excel file name
folderPath = "C:\"
folderName = "MyFolder"
xlFileName = "MyExcel.xls"
//Create File System Object
Set fso = CreateObject("Scripting.FileSystemObject")
//Build the folder path
newPath = fso.BuildPath(folderPath,folderName)
//Create the folder if it is not created already
If fso.FolderExists(newPath) <> True Then
fso.CreateFolder(newPath)
End If
//Create Excel object
Set xlApp = CreateObject("Excel.Application")
Set xlSheet=createObject("Excel.sheet")
//Write into excel file and save it inside the newly created folder
xlSheet.ActiveSheet.cells(1,1).value=1111
xlSheet.SaveAs newPath&"\"&xlFileName
Set xlSheet = Nothing
Set xlApp = Nothing
Set fso = NothingHope this helps you. Also hope next time around you spell my name correct
