9 lines
416 B
Text
9 lines
416 B
Text
ClearAll[CheckExtension]
|
|
CheckExtension[fn_String, e : {_String ..}] := StringMatchQ[ToLowerCase[FileExtension[fn]], Alternatives @@ ToLowerCase[e]]
|
|
exts = {"zip", "rar", "7z", "gz", "archive", "A##"};
|
|
CheckExtension["MyData.a##", exts]
|
|
CheckExtension["MyData.tar.gz", exts]
|
|
CheckExtension["MyData.gzip", exts]
|
|
CheckExtension["MyData.7z.backup", exts]
|
|
CheckExtension["MyData..", exts]
|
|
CheckExtension["MyData", exts]
|