diff --git a/Program.fs b/Program.fs
index 8830fc3c3f1d1355a79e7d8c93c5ebe66634f350..da0ef7193d8a2f91ad6011fdf5d6979ca03825ce 100644
--- a/Program.fs
+++ b/Program.fs
@@ -133,6 +133,7 @@ let generateMbackupList (logger: Logger) =
         // For mbackup-default.list and local.list, exclude empty lines and comment lines.
         // skip and give a warning on non-absolute path.
         // For user-default.list, auto prefix user's home dir, auto expand Documents, Downloads etc special folder.
+        Directory.CreateDirectory(runtimeDirWin) |> ignore
         File.WriteAllLines(mbackupList, allLines)
         logger.Info "mbackup.list file written: %s" mbackupList
         true
@@ -216,8 +217,8 @@ let main argv =
         let rsyncArgs = rsyncCmd |> String.concat " "
         let rsyncExe = mbackupProgramDirWin + "rsync-w64\\usr\\bin\\rsync.exe"
         try
-          Directory.CreateDirectory(runtimeDir) |> ignore
-          Directory.CreateDirectory(userConfigDir) |> ignore
+          Directory.CreateDirectory(runtimeDirWin) |> ignore
+          Directory.CreateDirectory(userConfigDirWin) |> ignore
           logger.Info "Note: if you run the following rsync command yourself, make sure the generated file list (%s) is up-to-date.\n%s" mbackupFile (rsyncExe + " " + rsyncArgs)
           let proc = Process.Start(rsyncExe, rsyncArgs)
           if proc.WaitForExit Int32.MaxValue then