Implemented countSample text files.

6 years ago · f7e9351c4b
1 changed files with 9 additions and 0 deletions
--- a/WetPancake/Assistants.fs
+++ b/WetPancake/Assistants.fs
@ -1,2 +1,11 @@
 module internal Assistants

+    open System
+    open System.IO
+    open System.Text.RegularExpressions
+
+    let CountSampleTextFiles =
+        let path = __SOURCE_DIRECTORY__ + "\TextFiles"
+        Directory.GetFiles(path, ".txt", SearchOption.TopDirectoryOnly).Length
+
+    let MakeTestPath = ""