создание универсального файла в общей папке с использованием QTP - PullRequest
Новая
       11

создание универсального файла в общей папке с использованием QTP

0 голосов
/ 22 декабря 2008

Я создал общую папку, взяв имя из DataTable: 

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
strdata = Datatable.Value("Column name", "Sheet")
fso.CreateFolder "C:\Documents and Settings\schoudar\Desktop\" & strdata

До этого я был успешным, но теперь я хочу сохранить файл в этой папке, и имя папки меняется, когда я не делаю. итераций. Поэтому я попытался с CaptureBitmap file: 

Browser("Browser").CaptureBitmap "C:\Documents and Settings\Desktop\ & strdata\filename.bmp"

Но это не работает, поэтому, пожалуйста, помогите мне.

1 Ответ

4 голосов
/ 22 декабря 2008

Какую ошибку вы получаете?

Просто предположение, исправьте кавычки и добавьте строку: 

Browser("Browser").CaptureBitmap "C:\Documents and Settings\Desktop\" & strdata & "\filename.bmp"
...