@@ -26,18 +26,21 @@ type SchemaItem = member self.Refresh() = let dir = self.Tag :?> DirectoryInfo - let files = dir.GetFiles("*.sql") |> Array.to_list + let files, directories = match dir.Exists with + | true -> dir.GetFiles("*.sql") + |> Array.to_list, + dir.GetDirectories() + |> Array.to_list + |> List.filter (fun dir -> (dir.Attributes &&& FileAttributes.Hidden) <> FileAttributes.Hidden) + | false -> List.empty, List.empty + List.iter (fun (file_info : FileInfo) -> let make_file(file_info : FileInfo) = new SchemaItem(FileNode(file_info)) let schema_file = make_file file_info self.Nodes.Add(schema_file) |> ignore) files - - let directories = dir.GetDirectories() - |> Array.to_list - |> List.filter (fun dir -> (dir.Attributes &&& FileAttributes.Hidden) <> FileAttributes.Hidden) - + List.iter (fun dir -> let directory_node = new SchemaItem(DirectoryNode(dir)) directory_node.Refresh() Forms.fs e46fc5027c3cc3d5171159e0170238acb57cec9b aaronfeng aaron.feng@gmail.com http://github.com/aaronfeng/schema_runner/commit/bd04dd13fc947e4c89e488a73248cc088b5b31d7 bd04dd13fc947e4c89e488a73248cc088b5b31d7 2009-01-27T19:30:26-08:00 2009-01-27T19:30:26-08:00 make sure directories exist before trying to retrieve sql files and sub-directories. 612f5f81227b842d0c1ddcc441883457190bad5a aaronfeng aaron.feng@gmail.com