{"id":107,"date":"2009-04-18T12:41:02","date_gmt":"2009-04-18T01:41:02","guid":{"rendered":"http:\/\/blog.peter-johnson.com.au\/?p=107"},"modified":"2009-04-18T12:41:02","modified_gmt":"2009-04-18T01:41:02","slug":"applicationfilesearch-in-ms-access-2007","status":"publish","type":"post","link":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/","title":{"rendered":"Application.FileSearch in MS Access 2007"},"content":{"rendered":"<p>I recently wrote a small application for someone using Microsoft Access 2003 and found the Application.FileSearch method of enumerating files is no longer available. The older &#8220;dir&#8221; function is still available so I replaced it with the following code to change the current drive and path and enumerate the files. Note this code will only work for local drive paths, not UNC style network paths.<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\nPrivate Sub Form_Activate()\n\nDim i As Integer\nDim SearchPath As String\nDim Filename As String\n\nSearchPath = GetPath() &amp; &quot;Backups&quot;\nChDrive Mid$(SearchPath, 1, 2)\nChDir SearchPath\nFilename = Dir(&quot;*.csv&quot;)\nWhile Filename &lt;&gt; &quot;&quot;\n  RestoreList.AddItem (Filename)\n  Filename = Dir\nWend\n\nEnd Sub\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>I recently wrote a small application for someone using Microsoft Access 2003 and found the Application.FileSearch method of enumerating files is no longer available. The older &#8220;dir&#8221; function is still available so I replaced it with the following code to change the current drive and path and enumerate the files. Note this code will only [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[8,10],"tags":[],"class_list":["post-107","post","type-post","status-publish","format-standard","hentry","category-programming","category-sql-database"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v26.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\r\n<title>Application.FileSearch in MS Access 2007 - Peter Johnson&#039;s Blog<\/title>\r\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\r\n<link rel=\"canonical\" href=\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/\" \/>\r\n<meta property=\"og:locale\" content=\"en_US\" \/>\r\n<meta property=\"og:type\" content=\"article\" \/>\r\n<meta property=\"og:title\" content=\"Application.FileSearch in MS Access 2007 - Peter Johnson&#039;s Blog\" \/>\r\n<meta property=\"og:description\" content=\"I recently wrote a small application for someone using Microsoft Access 2003 and found the Application.FileSearch method of enumerating files is no longer available. The older &#8220;dir&#8221; function is still available so I replaced it with the following code to change the current drive and path and enumerate the files. Note this code will only [&hellip;]\" \/>\r\n<meta property=\"og:url\" content=\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/\" \/>\r\n<meta property=\"og:site_name\" content=\"Peter Johnson&#039;s Blog\" \/>\r\n<meta property=\"article:published_time\" content=\"2009-04-18T01:41:02+00:00\" \/>\r\n<meta name=\"author\" content=\"Peter Johnson\" \/>\r\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\r\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Peter Johnson\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\r\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/\"},\"author\":{\"name\":\"Peter Johnson\",\"@id\":\"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/4c77aa7d5243430f95831ecb7277546c\"},\"headline\":\"Application.FileSearch in MS Access 2007\",\"datePublished\":\"2009-04-18T01:41:02+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/\"},\"wordCount\":118,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/4c77aa7d5243430f95831ecb7277546c\"},\"articleSection\":[\"Programming\",\"SQL \/ Database\"],\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/\",\"url\":\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/\",\"name\":\"Application.FileSearch in MS Access 2007 - Peter Johnson&#039;s Blog\",\"isPartOf\":{\"@id\":\"https:\/\/blog.peter-johnson.com.au\/#website\"},\"datePublished\":\"2009-04-18T01:41:02+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/blog.peter-johnson.com.au\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Application.FileSearch in MS Access 2007\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/blog.peter-johnson.com.au\/#website\",\"url\":\"https:\/\/blog.peter-johnson.com.au\/\",\"name\":\"Peter Johnson&#039;s Blog\",\"description\":\"Hobart, Tasmania Software Development\",\"publisher\":{\"@id\":\"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/4c77aa7d5243430f95831ecb7277546c\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/blog.peter-johnson.com.au\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":[\"Person\",\"Organization\"],\"@id\":\"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/4c77aa7d5243430f95831ecb7277546c\",\"name\":\"Peter Johnson\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/blog.peter-johnson.com.au\/wp-content\/uploads\/2022\/03\/168849_1786067253024_5579222_n.jpg\",\"contentUrl\":\"https:\/\/blog.peter-johnson.com.au\/wp-content\/uploads\/2022\/03\/168849_1786067253024_5579222_n.jpg\",\"width\":160,\"height\":120,\"caption\":\"Peter Johnson\"},\"logo\":{\"@id\":\"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/image\/\"},\"sameAs\":[\"https:\/\/blog.peter-johnson.com.au\"],\"url\":\"https:\/\/blog.peter-johnson.com.au\/index.php\/author\/peterj\/\"}]}<\/script>\r\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Application.FileSearch in MS Access 2007 - Peter Johnson&#039;s Blog","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/","og_locale":"en_US","og_type":"article","og_title":"Application.FileSearch in MS Access 2007 - Peter Johnson&#039;s Blog","og_description":"I recently wrote a small application for someone using Microsoft Access 2003 and found the Application.FileSearch method of enumerating files is no longer available. The older &#8220;dir&#8221; function is still available so I replaced it with the following code to change the current drive and path and enumerate the files. Note this code will only [&hellip;]","og_url":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/","og_site_name":"Peter Johnson&#039;s Blog","article_published_time":"2009-04-18T01:41:02+00:00","author":"Peter Johnson","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Peter Johnson","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/#article","isPartOf":{"@id":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/"},"author":{"name":"Peter Johnson","@id":"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/4c77aa7d5243430f95831ecb7277546c"},"headline":"Application.FileSearch in MS Access 2007","datePublished":"2009-04-18T01:41:02+00:00","mainEntityOfPage":{"@id":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/"},"wordCount":118,"commentCount":0,"publisher":{"@id":"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/4c77aa7d5243430f95831ecb7277546c"},"articleSection":["Programming","SQL \/ Database"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/","url":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/","name":"Application.FileSearch in MS Access 2007 - Peter Johnson&#039;s Blog","isPartOf":{"@id":"https:\/\/blog.peter-johnson.com.au\/#website"},"datePublished":"2009-04-18T01:41:02+00:00","breadcrumb":{"@id":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/blog.peter-johnson.com.au\/index.php\/2009\/04\/18\/applicationfilesearch-in-ms-access-2007\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/blog.peter-johnson.com.au\/"},{"@type":"ListItem","position":2,"name":"Application.FileSearch in MS Access 2007"}]},{"@type":"WebSite","@id":"https:\/\/blog.peter-johnson.com.au\/#website","url":"https:\/\/blog.peter-johnson.com.au\/","name":"Peter Johnson&#039;s Blog","description":"Hobart, Tasmania Software Development","publisher":{"@id":"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/4c77aa7d5243430f95831ecb7277546c"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/blog.peter-johnson.com.au\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":["Person","Organization"],"@id":"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/4c77aa7d5243430f95831ecb7277546c","name":"Peter Johnson","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/image\/","url":"https:\/\/blog.peter-johnson.com.au\/wp-content\/uploads\/2022\/03\/168849_1786067253024_5579222_n.jpg","contentUrl":"https:\/\/blog.peter-johnson.com.au\/wp-content\/uploads\/2022\/03\/168849_1786067253024_5579222_n.jpg","width":160,"height":120,"caption":"Peter Johnson"},"logo":{"@id":"https:\/\/blog.peter-johnson.com.au\/#\/schema\/person\/image\/"},"sameAs":["https:\/\/blog.peter-johnson.com.au"],"url":"https:\/\/blog.peter-johnson.com.au\/index.php\/author\/peterj\/"}]}},"_links":{"self":[{"href":"https:\/\/blog.peter-johnson.com.au\/index.php\/wp-json\/wp\/v2\/posts\/107","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.peter-johnson.com.au\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.peter-johnson.com.au\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.peter-johnson.com.au\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.peter-johnson.com.au\/index.php\/wp-json\/wp\/v2\/comments?post=107"}],"version-history":[{"count":0,"href":"https:\/\/blog.peter-johnson.com.au\/index.php\/wp-json\/wp\/v2\/posts\/107\/revisions"}],"wp:attachment":[{"href":"https:\/\/blog.peter-johnson.com.au\/index.php\/wp-json\/wp\/v2\/media?parent=107"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.peter-johnson.com.au\/index.php\/wp-json\/wp\/v2\/categories?post=107"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.peter-johnson.com.au\/index.php\/wp-json\/wp\/v2\/tags?post=107"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}