Well, you could just add an else statement to if Instr(f.Name,".") > 0 then
so it would end up like this:
if InStr(f.Name, ".") > 0 then
picTypeArray = Split(f.Name, ".")
picType = picTypeArray(UBound(picTypeArray))
else
pic.TypeArray.Append f.name
pic.TypeArray. Append ""
picType = ""
end if
Hope this helps,
Maarten
if f <> nil then
dim picType As String
dim picTypeArray() As String
if InStr(f.Name, ".") > 0 then
picTypeArray = Split(f.Name, ".")
picType = picTypeArray(UBound(picTypeArray))
end if
// Do stuff based in picType...
end if
but if the user has deleted the extension from the file name this
obviously won't work. How do I get the file type they've picked
without using the file name extension on Windows?
Cheers,
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
