diff --git a/HasSuffix.fs b/HasSuffix.fs
new file mode 100644
index 0000000..b058946
--- /dev/null
+++ b/HasSuffix.fs
@@ -0,0 +1,6 @@
+module HasSuffix =
+    /// <summary>
+    /// Reports string has specified suffix or not.
+    /// </summary>
+    let HasSuffix (s: string, suffix: string) =
+        s.Length >= suffix.Length && s.Substring(s.Length-suffix.Length) = suffix