Rename a special filename

[Jan Lichtenbelt]

I have a file with filename: 20151231-  Newyear -12471010.html
A hyperlink to this file looks like: 20151231-%25F0%259F%258E%2587 Newyear %25F0%259F%258E%2587-12471010.html

Now I want to rename this file. I tried:

Please Login or Register  to view this content.

But this fails , possible due to the fact that Filename becomes: 20151231- ?? Newyear ?? 12471010.html

How to solve this problem?

With kind regards

Jan Lichtenbelt

PS. Now with code tags. The question remains the same

[shg]

Please take a few minutes to re-read the forum rules, and then edit your post to add CODE tags.

Thanks.

[Akuini]

First, you need to use fullpath name in the code, something like this:

Please Login or Register  to view this content.

But it still don't solve the symbolic character problem. The code stops at;

Please Login or Register  to view this content.

I don't know how to resolve that.
I suggest you use a freeware called 'Advanced Renamer'. It can do batch renaming using list (oldname-newname) or pattern.

[shg]

I recollect that Dir returns filenames with Unicode characters converted to ANSI, which means you can't use the resulting string to open (or rename) the file. VB includes a DirW function to accommodate this, but not VBA.

You need to use instead the FileSystemObject object.

[Jan Lichtenbelt]

The Dir() function and FileSytemObect give the same result. As long as you put the result of the dir() function of of the objFile.Name directly in a cell, you get the original files name. But as sson as you put the result in a string, the uncides are olst. See picture

Added Febr 28-2016 the code as requested:

Please Login or Register  to view this content.

The picture show additional an output to the cell( 25,2) and I=I just for stopping the process.

[shg]

Right, but the objective is to rename the file, right? So if you can identify it, you can rename it.

[Jan Lichtenbelt]

Rename the file depends on its original name. How do I check I rename the correct file? Then I have to check if (part of) the file name is correct. That means I have to save the filename in a string. And then information is lost, see above.

[shg]

What part of the name identifies it as the file of interest?

Please Login or Register  to view this content.

[Jan Lichtenbelt]

The part of interest is between the first and the last - (dash/minus sign)

[shg]

The Unicode characters are necessary to distinguish the filename?

[Jan Lichtenbelt]

In general, the unicodes are not essential to recognise the filename

[shg]

Right. So the presence of what ANSI string is necessary to distinguish the filename?

Please Login or Register  to view this content.

[Jan Lichtenbelt]

Any string present between the first and the last - (dash/minus sign)
Remark: It is not one example. For one file I can do it myself without VBA Excel. But I want a general program to select files and rename it, depending on the filename. A priori I do not know what the string is, I only know it is between de outerst dashes.

[shg]

I'm losing the bubble.

I only know it is between de outerst dashes.

Please Login or Register  to view this content.

That's anything with two dashes in the filename.

[Jan Lichtenbelt]

Dear shg

Thanks a lot. It works!

With kind regards

Jan Lichtenbelt

[Doc.AElstein]

@ Jan Lichtenbelt ,
Hello Jan,
Would it be possible to post the code from Post # 5 in Code Tags?
That code could be useful to me just now
Thanks, Danke
Alan
Germany

[Jan Lichtenbelt]

Dear Alan,

I put it on the forum.

Met vriendelijke groeten

Jan

[Doc.AElstein]

Thanks Jan,

MFGruß aus Hof !

Alan

[shg]

You're welcome.