Hi all.I'm trying to make a function that do exactly what the function attached is doing; But I want something that uses TestComplete classes instead of CommandPrompt.I've already read about aq.FileSystem.RenameFolder and RenameFile, but it doesn't seems to be the best way to do that.Hope someone can help me (again).------The other doubt is a little more complex.I need to open EVERY RENAMED FILE, search for the line "CREATE TABLE xxxxx" and/or "ALTER TABLE xxxxx", and create a new notepad file with all the occurrences, replacing the CREATE TABLE and/or ALTER TABLE for "SELECT * FROM xxxx".------Ideas??!?

For all your cases in your function where you are calling RD to rename a directory, you would use:call aqFileSystem.RenameFolder("C:\OldName", "C:\NewName")You don't need anything fancy around that, just simply send in the old name of the folder with it's full path and then give it the new name, also with the full path.As for renaming files, it's also very much the same sort of thing.call aqFileSystem.RenameFile("C:\MyFolder\OldName.txt", "C:\MyFolder\NewName.txt")So, if I'm reading your code correctly, the first 10 lines of your code would be replaced as such:' Rename folder LG Componentes and files.sql aqFileSystem.RenameFolder("D:\Scripts\Scripts\01 - LGComponentes", "D:\Scripts\Scripts\1.LGComponentes") aqFileSystem.RenameFolder("D:\Scripts\Scripts\1.LGComponentes\SQL Server", "D:\Scripts\Scripts\1.LGComponentes\SQLServer") aqFileSystem.RenameFile("D:\Scripts\Scripts\1.LGComponentes\SQL Server\1.LGComponentes_CREATE_SQL_SERVER.sql", "D:\Scripts\Scripts\1.LGComponentes\SQL Server\1.SQL") Log.Message("Folder 1.LGComponentes renamed")Hope this helps.As for your other request, look at using aqFile.ReadWholeTextFile and then using the aqString.Replace against that result. Then use aqFile.WriteToTextFile to output the result back to your file.

Hey Robert. I think it will help a lot.Another doubt.I'll set a const with my directory on it: Const Path = "D:\Scripts\Scripts\"I'm trying to do that on my code but isn't working:aqFileSystem.RenameFolder(Path&"01 - LGComponentes",""&Path&"1.LGComponentes"")On this case, the idea is to prevent typing "D:\Scripts\Scripts\01 - LGComponentes" many times, just trying to make my script more understandable.How does my quotes and concatenation char will be typed in here?Thanks (again) for your attention!!!PS.: I tried your code and it is returning an error message (attached).

About the other tip that you gave me, that is my priority.How does aqString.Replace will see what is written inside my files and replace it? On SmarBear's example (linked) it replaces just the string inside TestComplete.I've attached an .sql file for you to take a look and understand what I'll have to do. I'll have to read all of it, then I'll replace the "CREATE TABLE xxxxx" to "SELECT * FROM xxxxx" and output all the replaced lines to a new .sql file, that I'll run after replace every code from every files in directory (something around 150 .sql files).The output file will just need to have the 'SELECT * FROM xxxxx' lines. The rest of the code can be discarded (the .sql file where my script will look for Create Table xxxxx lines can't be altered.)Any ideas??

Hey Robert. We've forgot to Call the functions. Now it is working, but it isn't working right.When I call this code:Call aqFileSystem.RenameFolder("D:\Scripts\Scripts\01 - LGComponentes", "D:\Scripts\Scripts\1.LGComponentes")It doesn't rename the folder 01 - LGComponentes to 1.LGCompontenes. It creates a new folder named 1.LGComponentes and paste the folder 01 - LGComponentes inside of it.Any tip about why it is happening?

Hey Robert.About my doubt about search and replace text inside the file, I did it by using the following code:s = aqFile.ReadWholeTextFile("D:\Scripts\Scripts\1.LGComponentes\Oracle\1.sql", aqFile.ctUTF8)s = aqString.Replace(s, "CREATE TABLE", "SELECT * FROM")If (aqFile.Create("D:\Scripts\Scripts\1.LGComponentes\Oracle\1-Sel.txt") = 0) Then Call aqFile.WriteToTextFile("D:\Scripts\Scripts\1.LGComponentes\Oracle\1.txt", s, aqFile.ctUTF8) Call Log.Message("Sucesso!") Call aqFile.Rename("D:\Scripts\Scripts\1.LGComponentes\Oracle\1.txt", "D:\Scripts\Scripts\1.LGComponentes\Oracle\1-Select.sql")Else Call Log.Error("Falha")End If But how will I remove EVERYTHING in my new file that I don't need?An example:The file has:SELECT DECODE(COUNT(*), 0, 'FALSE', 1, 'TRUE') FROM ALL_TABLES WHERE TABLE_NAME='LGID'( TABELA VARCHAR2(60) NOT NULL, ULTIMO_ID NUMBER(18) NOT NULL)PCTFREE 10 PCTUSED 60 INITRANS 1 MAXTRANS 255 TABLESPACE TS_FPW_DAT_01 STORAGE ( INITIAL 40960 NEXT 40960 PCTINCREASE 0 MINEXTENTS 1 MAXEXTENTS 200 )/And all I need is:SELECT DECODE(COUNT(*), 0, 'FALSE', 1, 'TRUE') FROM ALL_TABLES WHERE TABLE_NAME='LGID'Is that even possible?P.S.1: This is just an example of a file. In the same file I have lots of CREATE TABLE, ALTER TABLE, etc... But all I'll always need is the CREATE TABLE entire line.P.S.2: Sorry about all this posts, but I don't have permission to edit my posts.

Rename Folders/Subfolders/Files and other doubt

50 Replies

joffre

Regular Contributor

14 years ago

Are any of the files in that folder open and in use, as in your SQL Query editor or in a Text file editor? Are any of the files left in an open state from TestComplete's access (after you call aqFile.OpenTextFile you should close the file)?

On the folder that I've just created there is no file inside of it. And any folder either.

Just one folder named "SQL Server" inside C:\

I try to rename it to "SQLServer" and it doesn't work.

Call aqFileSystem.RenameFolder("C:\SQL Server", "C:\SQLServer")

It creates a new folder named SQLServer and pastes the folder SQL Server inside of it.

tristaanogre
Esteemed Contributor
14 years ago
The only difference between your environment and my environment is that I'm using TestComplete 8.50 and you're using 7.52. So, I loaded up TC 7.52 and tried it. I get a clean result in that the folder is renamed and there is nothing copied to any other folders.

When you're putting the code up, are you doing a direct copy and paste from TestComplete or are you typing it in? The reason I ask is that the behavior you are describing would happen if you are doing the following:

Call aqFileSystem.RenameFolder("C:\SQL Server\", "C:\SQLServer")

Note the backslash (\) in the first path. This tells RenameFolder to actually move the folder to the destination folder which is the behavior you are describing.

Examine your code for extraneous backslash characters and remove them.

Other than that, I'm not sure what else to tell you. You could try uploading the actual script code unit you are using and I can examine your code directly that way but the function, for me, is working correctly both in TC 8 and in TC 7.
joffre
Regular Contributor
14 years ago
Call aqFileSystem.RenameFolder("C:\SQL Server", "C:\SQLServer")

Still not working. No backslash and doesn't work. Still pasting the "SQL Server" (oldpath) folder into "SQLServer" (newpath).
YMinaev
Staff
14 years ago
Hi,

I'll try to reproduce this behavior and post here my results.
joffre
Regular Contributor
14 years ago
Thanks for your help.

Hope you find the problem.
YMinaev
Staff
14 years ago
Hi,

I was able to reproduce this behavior in TC 7.52, however, RenameFolder works correctly in TC 8. I recommend that you install the latest update (8.50) if possible.
joffre
Regular Contributor
14 years ago
Hi,

I was able to reproduce this behavior in TC 7.52, however, RenameFolder works correctly in TC 8. I recommend that you install the latest update (8.50) if possible.

Is it possible to update my version 7.52 to 8.50 without buying the software again? (I don't think so)...

Is there any way that I can fix it on version 7.52?

Thanks for your reply.
YMinaev
Staff
14 years ago
Hi,

Can you submit a support case to us regarding this and specify your customer ID so that we can check what options are possible?
joffre
Regular Contributor
14 years ago
Hi,

Can you submit a support case to us regarding this and specify your customer ID so that we can check what options are possible?

Support case submitted. Thanks for your help.
YMinaev
Staff
14 years ago
Hi,

OK, we'll get back to you via e-mail shortly.

Forum Discussion

Rename Folders/Subfolders/Files and other doubt

50 Replies

Recent Discussions

Breakpoints in external files with python 3.13?

Oracle Forms window with dynamic name - unable to click on subsequent runs

Converting VB Script Tests

Related Content

Renamed endpoints

Checkpoint image rename

Copy and rename a file using JavaScript