InStr Replace function problem - double entries

Dear Community

I have got a simple VBA Code to list images in a certain directory and to get the image dimensions of each image.

Some of the images within this folder are used as preview images. These are containing the german word "Voransicht" which means preview.

I am using a foreach loop to get all images and then manipulate the filenames to get the name that I want.

Please Login or Register  to view this content.

Here is one example name: Beilagscheibe-Typ-A01-Voransicht.jpg

As long as the preview images are containing the phrase "Voransicht" everything is working fine.



Now I had to change the filenames a litte bit to the following: Beilagscheibe-Typ-A01-View-JPEG.jpg

I tried to adapt the vba script to the following:

Please Login or Register  to view this content.

The problem is that it works the way it is supposed to but excel is listing the files 2 times. One time with "._" in front of the file name and one time the way it should be.

._Beilagscheibe-Typ-A01
Beilagscheibe-Typ-A01

Might there be a problem with string comparison with hyphens in it?

Any help is very much appreciated.

@JosephP: The images where created with Photoshop on a MAC.

However if I manually rename the preview files to ...-Voransicht.jpg the script is working fine.


@Norie: This is the whole Code:

To be able to get dimensions of TIFF files etc. I included another library:LoadPictureGDI

Please Login or Register  to view this content.

wow! you are so right!

I coppied the files within the folder to a new folder and it works!

Is there a way to remove the fragment files, although I am not seeing them?

THANKS SO MUCH, was struggleing with that for days now!