diff --git a/src/app/Fake.IO.FileSystem/GlobbingFileSystem.fs b/src/app/Fake.IO.FileSystem/GlobbingFileSystem.fs
index 56f13e45df9..a6a9577bd4e 100644
--- a/src/app/Fake.IO.FileSystem/GlobbingFileSystem.fs
+++ b/src/app/Fake.IO.FileSystem/GlobbingFileSystem.fs
@@ -127,6 +127,12 @@ module GlobbingPattern =
           Includes = [ x ]
           Excludes = [] } :> IGlobbingPattern
 
+    /// Start an empty globbing pattern from the specified directory
+    let createFrom (dir : string) =
+        { BaseDirectory = dir
+          Includes = []
+          Excludes = [] } :> IGlobbingPattern
+
     /// Sets a directory as baseDirectory for fileIncludes. 
     let setBaseDir (dir : string) (fileIncludes : IGlobbingPattern) = fileIncludes.SetBaseDirectory dir