diff --git a/compat/dirent_win32.c b/compat/dirent_win32.c
new file mode 100644
index 0000000000..f785d420c7
--- /dev/null
+++ b/compat/dirent_win32.c
@@ -0,0 +1,128 @@
+/*
+
+   Implementation of POSIX directory browsing functions and types for Win32.
+
+Author:  Kevlin Henney (kevlin@acm.org, kevlin@curbralan.com)
+History: Created March 1997. Updated June 2003 and July 2012.
+Rights:  See end of file.
+
+*/
+
+/*
+
+   Copyright Kevlin Henney, 1997, 2003, 2012. All rights reserved.
+
+   Permission to use, copy, modify, and distribute this software and its
+   documentation for any purpose is hereby granted without fee, provided
+   that this copyright and permissions notice appear in all copies and
+   derivatives.
+
+   This software is supplied "as is" without express or implied warranty.
+
+   But that said, if there are any problems please get in touch.
+
+*/
+
+#include "dirent_win32.h"
+#include <errno.h>
+#include <io.h> /* _findfirst and _findnext set errno iff they return -1 */
+#include <stdlib.h>
+#include <stddef.h>
+#include <string.h>
+
+typedef ptrdiff_t handle_type; /* C99's intptr_t not sufficiently portable */
+
+struct DIR
+{
+   handle_type         handle; /* -1 for failed rewind */
+   struct _finddata_t  info;
+   struct dirent       result; /* d_name null iff first time */
+   char                *name;  /* null-terminated char string */
+};
+
+DIR *opendir(const char *name)
+{
+   DIR *dir = 0;
+
+   if (name && name[0])
+   {
+      size_t base_length = strlen(name);
+      const char *all = /* search pattern must end with suitable wildcard */
+         strchr("/\\", name[base_length - 1]) ? "*" : "/*";
+
+      if ((dir = (DIR *) malloc(sizeof *dir)) != 0 &&
+            (dir->name = (char *) malloc(base_length + strlen(all) + 1)) != 0)
+      {
+         strcat(strcpy(dir->name, name), all);
+
+         if ((dir->handle =
+                  (handle_type) _findfirst(dir->name, &dir->info)) != -1)
+            dir->result.d_name = 0;
+         else /* rollback */
+         {
+            free(dir->name);
+            free(dir);
+            dir = 0;
+         }
+      }
+      else /* rollback */
+      {
+         free(dir);
+         dir   = 0;
+         errno = ENOMEM;
+      }
+   }
+   else
+      errno = EINVAL;
+
+   return dir;
+}
+
+int closedir(DIR *dir)
+{
+   int result = -1;
+
+   if (dir)
+   {
+      if (dir->handle != -1)
+         result = _findclose(dir->handle);
+
+      free(dir->name);
+      free(dir);
+   }
+
+   if (result == -1) /* map all errors to EBADF */
+      errno = EBADF;
+
+   return result;
+}
+
+struct dirent *readdir(DIR *dir)
+{
+   struct dirent *result = 0;
+
+   if (dir && dir->handle != -1)
+   {
+      if (!dir->result.d_name || _findnext(dir->handle, &dir->info) != -1)
+      {
+         result         = &dir->result;
+         result->d_name = dir->info.name;
+      }
+   }
+   else
+      errno = EBADF;
+
+   return result;
+}
+
+void rewinddir(DIR *dir)
+{
+   if (dir && dir->handle != -1)
+   {
+      _findclose(dir->handle);
+      dir->handle = (handle_type) _findfirst(dir->name, &dir->info);
+      dir->result.d_name = 0;
+   }
+   else
+      errno = EBADF;
+}
diff --git a/compat/dirent_win32.h b/compat/dirent_win32.h
new file mode 100644
index 0000000000..a85cd4cca8
--- /dev/null
+++ b/compat/dirent_win32.h
@@ -0,0 +1,50 @@
+#ifndef DIRENT_INCLUDED
+#define DIRENT_INCLUDED
+
+/*
+
+    Declaration of POSIX directory browsing functions and types for Win32.
+
+    Author:  Kevlin Henney (kevlin@acm.org, kevlin@curbralan.com)
+    History: Created March 1997. Updated June 2003.
+    Rights:  See end of file.
+    
+*/
+
+/*
+
+    Copyright Kevlin Henney, 1997, 2003. All rights reserved.
+
+    Permission to use, copy, modify, and distribute this software and its
+    documentation for any purpose is hereby granted without fee, provided
+    that this copyright and permissions notice appear in all copies and
+    derivatives.
+    
+    This software is supplied "as is" without express or implied warranty.
+
+    But that said, if there are any problems please get in touch.
+
+*/
+
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+
+typedef struct DIR DIR;
+
+struct dirent
+{
+    char *d_name;
+};
+
+DIR           *opendir(const char *);
+int           closedir(DIR *);
+struct dirent *readdir(DIR *);
+void          rewinddir(DIR *);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif
diff --git a/core_info.c b/core_info.c
index da9b110b17..ffcbdcb5b4 100644
--- a/core_info.c
+++ b/core_info.c
@@ -16,7 +16,11 @@
 #include "core_info.h"
 #include "general.h"
 #include <math.h>
+#ifdef _WIN32
+#include "compat/dirent_win32.h"
+#else
 #include <dirent.h>
+#endif
 
 core_info_list_t *get_core_info_list(void)
 {