I have tried the followin code to Download attachment from QC:
QCpath = "[QualityCenter]Subject\temp"
FileName = "Dec2010.zip"
Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Folders.RemoveAll
App.Folders.Add(QCpath)
Var = PathFinder.Locate(FileName)
If Trim(Var) <> "" Then
CreateObject("Scripting.FileSystemObject").CopyFile Var, "D:\QTP-SPIN
\Dec2010.zip"
End If
App.Folders.RemoveAll
Set App = Nothing
For the first time it was working fine but after that
"App.Folders.Add(QCpath)" command is not working. After executing the
mentioned line i checked the "QTP-Tools-Options-Folders" path and
there is nothing written, then i manually add the
"[QualityCenter]Subject\temp" but at run time it( "QTP-Tools-Options-
Folders" path) was also blank.
Please provide me the solution or the possible work around
Thanks in Advance
Arindra
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
