![]() ObjFILE.Name = Replace(objFILE.Name, "_", " ") 'Note that it does not search any folders within the folder. If it does replace all the undercore characters. Set objMAIN_FOLDER = objFOLDER.GetFolder("C:\documents and settings\\Desktop\") 'Notice that there is no back-slash at the end of the folder path. 'Insert your details in the locations marked with. Set objFOLDER = Interaction.CreateObject("Scripting.FileSystemObject") Here is some code that replaces all of the under-scores with spaces in all file names within a named folder on your desktop. It should be self explanatory although complex. You can select all and copy it into your VBA code. Either right button the bas file and select "Save Target As." and then import the bas file into your VBA code.Īlternatively select the bas file with the left button of your mouse and open the bas file. When you want VBA to read file names, change file names, change file extensions, count files, change file attributes such as read only then you must use an antiquated part of VBA that relies on a script command. Saving VBA Code to a Previous Version of CorelDraw CorelDraw
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |