Service Functions – System (WinRunner, TSL)
In the code examples I present I often refer to routine functions.
In my framework I have specialized libraries to call from. In my blog I maintain the similar structure.
Create Folder
public function sys_mk_dir(in dirpath, in dirname) {
auto rc, cmd_line;
cmd_line = dirpath & "\\" & dirname;
rc = dos_system("MkDir " & "\"" & cmd_line & "\"");
return(rc);
}
Copy File
public function sys_copy_file(in src, in dest) {
auto rc, cmd_line;
if ((src == "") || (dest == ""))
return(E_GENERAL_ERROR);
cmd_line = "\"" & src & "\"" & " " & "\"" & dest & "\"" & " /Y";
rc = dos_system("copy " & cmd_line);
return(rc);
}
<h4>Copy File</h4>
1
public function sys_copy_file(in src, in dest) {
auto rc, cmd_line;
if ((src == "") || (dest == ""))
return(E_GENERAL_ERROR);
cmd_line = "\"" & src & "\"" & " " & "\"" & dest & "\"" & " /Y";
rc = dos_system("copy " & cmd_line);
return(rc);
}
Delete File
public function sys_del_file(in fname) {
auto rc, cmd_line;
if (fname == "")
return(E_GENERAL_ERROR);
cmd_line = "\"" & fname & "\"" & " /F";
rc = dos_system("del " & cmd_line);
return(rc);
}

