Function Mime2Extension(strMimeType)
'Returns the likely file extension for a given mime type. Returns empty string if unknown.
Dim strMimeExtension, dic
Const MIME_DATA = "application/x-compress,z|application/x-compressed,tgz|application/x-dvi,dvi|application/x-gtar,gtar|application/x-gzip,gz|application/x-iphone,iii|application/x-javascript,js|application/x-shockwave-flash,swf|application/x-stuffit,sit|application/x-tar,tar|application/zip,zip|audio/basic,au|audio/mid,mid|audio/mpeg,mp3|audio/x-mpegurl,m3u|audio/x-pn-realaudio,ra|audio/x-wav,wav|audio/x-ms-wma,wma|image/bmp,bmp|image/gif,gif|image/jpeg,jpg|image/png,png|image/svg+xml,svg|image/tiff,tiff|image/x-icon,ico|image/x-portable-anymap,pnm|image/x-portable-bitmap,pbm|image/x-portable-graymap,pgm|image/x-portable-pixmap,ppm|image/x-rgb,rgb|image/x-xbitmap,xbm|image/x-xpixmap,xpm|image/x-xwindowdump,xwd|video/mpeg,mpg|video/quicktime,mov|video/x-ms-asf,asf|video/x-msvideo,avi|video/x-ms-wmv,wmv|video/x-flv,flv|video/x-sgi-movie,movie|video/mp4,mp4|flv-application/octet-stream,flv"
	If Instr(strMimeType, "/") = 0 Then
		MimeExtension = ""
		Exit Function
	End If
	Set dic = CreateDictionary(MIME_DATA, ",", "|")
	If dic.Exists(strMimeType) Then
		strMimeExtension = dic.Item(strMimeType)
	Else
		strMimeExtension = ""
	End If
	Mime2Extension = strMimeExtension
End Function