There are sometimes lots of unexpected in behaviour of UFT, so I recommend to do some experiments:
1) Test opening
uft.Open "R:\data\...\uft_script" 'replace with
uft.Open "R:\data\...\uft_script", False 'this will open the test in read-only mode
Also you can try
True version of the parameter to be sure the problem is not there.
2) Visibility of UFT
uft.Visible = True 'make the UFT application visible
3) Running test
uft.Test.Run Nothing, True, False 'replace with
uft.Test.Run Nothing, True 'have never seen third param in run command
Or try to specify results directory
Set uftResults = CreateObject("QuickTest.RunResultsOptions")
uftResults.ResultsLocation = "R:\data\...\uft_script"
uft.Test.Run uftResults, True
The second parameter of
True/False is for waiting until end of the test run (or not waiting). Just for information, you can also change it to
False but it is not likely to help in your case.
It's also useful to know the directory where text-files are created (to give more specific answer)