Hello David,
Very handy tool !
Please allow me a recommendation that will shorten your code.
Instead of the Sub ParseFileName, you could simply code
Form1.Text = StrToLower(FileName(OpenDialog1.File))
I am not sure about TIFFs, but they should not be LZW or otherwise compressed.
Cheers
Robert
|