Getfolder

2020/8/8Excel VBAで、フォルダ内のすべてのサブフォルダと、ファイルの一覧を取得するには、「FileSystemObject」を再帰的に使うとできます。VBAを使って、フォルダやファイルの解析を自動化していきましょう。はじめにこの記事では、フォルダ内のサブフォルダとファイルの、一覧を取得する方法について、ご紹介します。フォルダ内の「ファイル」を取得するには、「.GetFolder(フォルダパス).Files」を使うとできます。フォルダ内の「サブフォルダ」を取得するには、「.GetFolder(フォルダパス).SubFolders」を使います。フォルダ内の「すべてのサブフォルダ」を取得するには、「.GetFolder(フォルダパス).SubFolders」を再帰的に使うとできます。フォルダ内の「すべてのファイル」を取得するには、「.GetFolder(フォルダパス).SubFolders」を再帰的に使って、「.GetFolder(フォルダパス).Files」ですべてのファイルを取得するという感じです。VBAで、フォルダやファイルの解析を自動化していきましょう。では、フォルダ内のサブフォルダとファイルの、一覧を取得する方法について、解説していきます。この記事を読むメリットフォルダ内のすべてのサブフォルダとファイルの一覧を取得する方法がわかります。本記事の内容を動画でまとめています目次から見たい項目へ移動すると便利ですよ。目次フォルダ内のファイルやサブフォルダを取得ファイル一覧を取得サブフォルダ一覧を取得フォルダ内のすべてのサブフォルダとファイルを取得すべてのサブフォルダ一覧を取得すべてのファイル一覧を取得フォルダ解析をしてみるフォルダ構成すべてのファイル一覧表を作成おわりにフォルダ内のファイルやサブフォルダを取得フォルダ内のファイルやサブフォルダを取得してみます。ファイル一覧を取得フォルダ内の「ファイル一覧」を取得してみます。フォルダ構成はこんな感じになってます。フォルダ構成ファイル一覧を取得するには、「.GetFolder(フォルダパス).Files」を使います。Sub TEST1() Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") Dim A, B A = "C:\Users\User\Desktop\DATA" 'フォルダ内のファイルをループ For Each B In FSO.GetFolder(A).Files Debug.Print B 'ファイルパスを取得 Next End Sub実行すると、フォルダ内のファイル一覧を作成できます。ファイル一覧を取得できたフォルダ内のファイル一覧を作成できました。サブフォルダ一覧を取得次は、フォルダ内の「サブフォルダ一覧」を取得してみます。フォルダ構成はこんな感じになっています。フォルダ構成「サブフォルダ一覧」を取得するには、「.GetFolder(フォルダパス).SubFolders」を使います。Sub TEST2() Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") Dim A, B A = "C:\Users\User\Desktop\DATA" 'フォルダ内のサブフォルダをループ For Each B In FSO.GetFolder(A).SubFolders Debug.Print B 'サブフォルダのパスを取得 Next End Sub実行すると、フォルダ内のサブフォルダの一覧を作成できます。フォルダ一覧を取得できたフォルダ内のサブフォルダの一覧を作成できました。フォルダ内のすべてのサブフォルダとファイルを取得次は、フォルダ内の「すべて」の「サブフォルダ」と「ファイル」を取得してみます。フォルダ内にさらにフォルダがあって、フォルダに階層がある場合は、「.GetFolder」を再帰的に使います。すべてのサブフォルダ一覧を取得「すべてのサブフォルダ一覧」を取得してみます。フォルダ構成はこんな感じで、階層があります。フォルダ構成次のように「.GetFolder」を再帰的に使います。Sub TEST3() Dim A A = "C:\Users\User\Desktop\DATA" Call TEST4(A) End SubSub TEST4(A) Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") Dim B 'フォルダ内のサブフォルダをループ For Each B In FSO.GetFolder(A).SubFolders Debug.Print B 'サブフォルダのパスを取得 Call TEST4(B) '再帰する Next End Sub実行すると、フォルダ内のすべてのサブフォルダの一覧を作成できます。すべてのサブフォルダ一覧を取得できたフォルダ内のすべてのサブフォルダの一覧を作成できました。「.GetFolder」を再帰的に使った場合、フォルダ内を探索する順番はこんな感じになります。探索する順番という感じで、探索します。さらに深い階層のフォルダがなくなるまで、探索してくれます。すべてのファイル一覧を取得次は、「すべてのファイル一覧」を取得してみます。フォルダ構成はこんな感じになっています。フォルダ構成ファイルの一覧を取得したい場合は、「GetFolder」を再帰的に使って、「GetFolder(フォルダパス).Files」でファイル一覧を取得する、という流れになります。Sub TEST5() Dim A A = "C:\Users\User\Desktop\DATA" Call TEST6(A) End SubSub TEST6(A) Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") Dim B 'フォルダ内のファイルをループ For Each B In FSO.GetFolder(A).Files Debug.Print B 'ファイルパスを取得 Next Dim C 'フォルダ内のサブフォルダをループ For Each C In FSO.GetFolder(A).SubFolders '再帰する Call TEST6(C) Next End Sub実行すると、すべてのファイル一覧を取得することができます。すべてのファイル一覧を取得できたすべてのファイル一覧を取得することができました。フォルダ解析をしてみるすべてのサブフォルダやファイルを取得できれば、フォルダの解析をすることができます。フォルダ構成先ほど使ったフォルダ構成で、フォルダの解析をしてみます。フォルダ構成では、解析してみます。すべてのファイル一覧表を作成フォルダ内の。すべてのファイル一覧表を作成して、フォルダを解析してみます。シートに入力したいので、変数が入力できるように変更します。ファイル名や、拡張子、ファイルやフォルダのサイズ、作成日時、更新日時、アクセス日時などを取得してみます。Sub TEST7() Dim A A = "C:\Users\User\Desktop\DATA" i = 1 Call TEST8(A, i) End SubSub TEST8(A, i) Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") With ActiveSheet Dim B 'フォルダ内のファイルをループ For Each B In FSO.GetFolder(A).Files i = i + 1 .Cells(i, 1) = A 'フォルダパス .Cells(i, 2) = B 'ファイルパス .Cells(i, 3) = FSO.GetFileName(B) 'ファイル名 .Cells(i, 4) = FSO.GetExtensionName(B) '拡張子 .Cells(i, 5) = FSO.GetFile(B).Size 'サイズ .Cells(i, 6) = FSO.GetFile(B).DateCreated '作成日時 .Cells(i, 7) = FSO.GetFile(B).DateLastModified '更新日時 .Cells(i, 8) = FSO.GetFile(B).DateLastAccessed 'アクセス日時 Next Dim C 'フォルダ内のサブフォルダをループ For Each C In FSO.GetFolder(A).SubFolders i = i + 1 .Cells(i, 1) = C. 'フォルダパス .Cells(i, 5) = FSO.GetFolder(C).Size 'サイズ .Cells(i, 6) = FSO.GetFolder(C).DateCreated '作成日時 .Cells(i, 7) = FSO.GetFolder(C).DateLastModified '更新日時 .Cells(i, 8) = FSO.GetFolder(C).DateLastAccessed 'アクセス日時 '再帰する Call TEST8(C, i) Next End With End Subファイルパスやフォルダパスから、ファイル名や、拡張子、サイズ、作成日時、更新日時、アクセス日時などを取得する方法について、詳細はこちらでまとめています。実行すると、すべてのフォルダとファイルの値を取得することができます。すべてのフォルダとファイルの値を取得できたすべてのフォルダとファイルの値を取得することができました。こんな感じで、フォルダの解析をすることができます。フォルダの解析ができれば、不要なファイルやフォルダを洗い出して、データをすっきりさせることができますね。おわりにこの記事では、フォルダ内のサブフォルダとファイルの、一覧を取得する方法について、ご紹介しました。フォルダ内の「ファイル」を取得するには、「.GetFolder(フォルダパス).Files」を使うとできます。フォルダ内の「サブフォルダ」を取得するには、「.GetFolder(フォルダパス).SubFolders」を使います。フォルダ内の「すべてのサブフォルダ」を取得するには、「.GetFolder(フォルダパス).SubFolders」を再帰的に使うとできます。フォルダ内の「すべてのファイル」を取得するには、「.GetFolder(フォルダパス).SubFolders」を再帰的に使って、「.GetFolder(フォルダパス).Files」ですべてのファイルを取得するという感じです。VBAで、フォルダやファイルの解析を自動化していきましょう。参考になればと思います。最後までご覧くださいまして、ありがとうございました。関連する記事から探すフォルダ・ファイル操作フォルダ・ファイルのバックアップファイルやフォルダの存在をチェックするファイルパス・フォルダパスから値を取得すべてのサブフォルダとファイルの一覧を取得 ←こちらの記事フォルダ・ファイル一覧取得とハイパーリンクの設定フォルダを開く深い階層のフォルダを作成するフォルダ構成のみをコピーする

ファイル/フォルダ操作 2019.09.30 2019.04.19 今回は指定したフォルダ内のサブフォルダを全て取得する方法をご説明します。また、取得した全てのサブフォルダ内のファイルを開く方法も併せてご説明します。その他の方法でファイルを開く場合はこちらをご覧ください。ファイル名を指定してファイルを開く方法ダイアログでファイルを指定してファイルを開く指定したフォルダ内のファイルすべて開く目次 1.フォルダの指定方法コード内で直接フォルダを指定するダイアログボックスで指定する2.指定フォルダ内のサブフォルダをすべて取得するFileSystemObjectの使い方サブフォルダを取得する3.サブフォルダ内のファイルをすべて開く 1.フォルダの指定方法コードに直接フォルダを指定する方法と、ダイアログボックスを表示して、選択されたフォルダを取得する方法をご説明します。フォルダの指定方法の詳細は「Excel VBA 指定したフォルダ内のファイルすべて開く」をご覧ください。コード内で直接フォルダを指定するフォルダを指定するには「CreateObject(“WScript.Shell”)」で指定します。本来カレントフォルダの指定は「ChDirプロパティ」を使用しますが、共有ネットワーク上のフォルダに対応できるように「CreateObject(“WScript.Shell”)」を使用しています。Sub Sample1()With CreateObject("WScript.Shell") .CurrentDirectory = "C:\Sample" End WithEnd Subダイアログボックスで指定するダイアログボックスで取得する場合は「Application.FileDialog(msoFileDialogFolderPicker ).Showと書きます。 指定されたフォルダ名は「SelectedItems(1)」で取得します。「.Show 0 」で指定されたフォルダ名が存在するか判定して、存在する場合は取得します。Sub Sample2()Dim myFolder As VariantWith Application.FileDialog(msoFileDialogFolderPicker) If .Show 0 Then myFolder = .SelectedItems(1) End IfEnd WithMsgBox myFolderEnd Sub2.指定フォルダ内のサブフォルダをすべて取得するフォルダの指定ができましたので、次に指定したフォルダ内のサブフォルダを取得する方法です。フォルダの一覧を取得出来てしまえば、各フォルダ内のファイルを開く事も可能です。フォルダ内のサブフォルダを取得する方法は「FileSystemObject」を使用します。FileSystemObjectの使い方「FileSystemObject」はフォルダやファイルを操作する際に使用するオブジェクトです。FileSystemObjectは参照設定をするか「CreateObject」で使用できるようにします。他のPCでコードを使いまわしても問題ないように今回はCreateObjectを使用します。Sub Sample3()Dim Fso As ObjectSet Fso = CreateObject("Scripting.FileSystemObject")End Subサブフォルダを取得するフォルダを取得するには「GetFolder」関数を使用します。GetFolderはフォルダーがない場合にエラーとなりますので、エラー処理が必要です。次のコードはダイアログボックスで取得出来たフォルダ内のサブフォルダをすべて取得します。Sub Sample4()Dim myFolder As VariantDim Fso As ObjectDim GetFolder As ObjectDim Fol As ObjectSet Fso = CreateObject("Scripting.FileSystemObject")With Application.FileDialog(msoFileDialogFolderPicker) If .Show 0 Then myFolder = .SelectedItems(1) End IfEnd WithWith CreateObject("WScript.Shell") .CurrentDirectory = myFolderEnd WithSet GetFolder = Fso.GetFolder(myFolder)For Each Fol In GetFolder.SubFoldersDebug.Print Fol.NameNextSet GetFolder = NothingEnd Sub3.サブフォルダ内のファイルをすべて開く指定したフォルダのサブフォルダをすべて取得出来ましたので、最後にサブフォルダ内のファイルをすべて取得する方法です。文頭でご紹介した「Excel VBA 指定したフォルダ内のファイルすべて開く」のSample2のコードを使用します。注意点として、サブフォルダを取得する場合に、各サブフォルダに同じファイル名が存在する場合があります。その場合は次のコードでは開く事ができないのでご注意ください。Sub Sample5()Dim myFolder As VariantDim Fso As ObjectDim GetFolder As ObjectDim Fol As ObjectDim Filename As StringDim IsBookOpen As BooleanDim OpenBook As WorkbookSet Fso = CreateObject("Scripting.FileSystemObject")With Application.FileDialog(msoFileDialogFolderPicker) If .Show 0 Then myFolder = .SelectedItems(1) End IfEnd WithSet GetFolder = Fso.GetFolder(myFolder)For Each Fol In GetFolder.SubFoldersWith CreateObject("WScript.Shell") .CurrentDirectory = FolEnd WithFilename = Dir("*.xlsx") Do While Filename "" If Filename ThisWorkbook.Name Then IsBookOpen = False For Each OpenBook In Workbooks If OpenBook.Name = Filename Then IsBookOpen = True Exit For End If Next If IsBookOpen = False Then Workbooks.Open (Filename), UpdateLinks:=1 End If End If Filename = Dir() LoopNextSet GetFolder = NothingEnd Subコードの説明少し長いので、簡単にコードの説明です。「Application.FileDialog(msoFileDialogFolderPicker)」でフォルダを指定するダイアログを表示します。「myFolder = .SelectedItems(1)」で選択されたフォルダを取得しています。「Set GetFolder = Fso.GetFolder(myFolder)」で取得したフォルダをObjectへ格納しています。「For Each Fol In GetFolder.SubFolders」の「GetFolder.SubFolders」で格納したフォルダのサブフォルダをコレクションとしてループしています。「.CurrentDirectory = Fol」でコレクションから取得したフォルダをカレントフォルダにして、フォルダ内のファイルをループで取得しています。これですべてのサブフォルダ内のファイルを開く事ができました。

The reason is because FileSystemObject returns objects.To find something that would create a short file or folder name, I need to examine either the file object or the folder object. The file object returns when I use the GetFile method. A folder object returns when I use GetFolder. To investigate this, I use the GetFolder method to retrieve a folder object and examine the members. This is shown in the following image:Create the short pathsNow that I know how I can shorten the paths, I decide to create a little function to make using the technique a bit easier. The first thing I want to do is to create the FileSystemObject object. So that goes in the BEGIN statement script block as shown here:Function Get-ShortName{ BEGIN { $fso = New-Object -ComObject Scripting.FileSystemObject }Now I need to process the pipeline information. Is the input object a folder? If it is, I use the GetFolder method as shown here:PROCESS { If ($_.psiscontainer) {$fso.getfolder($_.fullname).ShortName}If it is not a folder, it is more than likely a file. So I use the GetFile method: ELSE {$fso.getfile($_.fullname).ShortName} } }That’s all there is to it. Here is the complete Get-ShortName function:Function Get-ShortName{ BEGIN { $fso = New-Object -ComObject Scripting.FileSystemObject } PROCESS { If ($_.psiscontainer) {$fso.getfolder($_.fullname).ShortName} ELSE {$fso.getfile($_.fullname).ShortName} } }So, how does it work? Well, in my Windows PowerShell ISE, I run the Get-ShortName.ps1 file and load the Get-ShortName function. Now I use the Get-ChildItem cmdlet to pipe some files and folders to the Get-ShortName function. The command and the results are shown in the following image.SH, that is all there is to using Windows PowerShell to display short file and folder names. Join me tomorrow when I will talk about more cool Windows PowerShell stuff.I invite you to follow me on Twitter and Facebook. If you have any questions, send email to me at [email protected], or post your questions on the Official Scripting Guys Forum. See you tomorrow. Until then, peace.Ed Wilson, Microsoft Scripting Guy Author The "Scripting Guys" is a historical title passed from scripter to scripter. The current revision has morphed into our good friend Doctor Scripto who has been with us since the very beginning.

} }); IMAPResponse response = (IMAPResponse) ret[0]; assertFalse(response.isBAD()); ret = (Response[]) folder.doCommand(new IMAPFolder.ProtocolCommand() { @Override public Object doCommand(IMAPProtocol protocol) { return protocol.command("RENAME foo bar", null); } }); Response response2 = ret[0]; assertTrue(response2.isOK()); final Folder bar = store.getFolder("bar"); bar.open(Folder.READ_ONLY); assertTrue(bar.exists()); } finally { store.close(); }} Example #22 @Testpublic void testUidSearchTextWithCharset() throws MessagingException, IOException { greenMail.setUser("foo2@localhost", "pwd"); store.connect("foo2@localhost", "pwd"); try { IMAPFolder folder = (IMAPFolder) store.getFolder("INBOX"); folder.open(Folder.READ_ONLY); final MimeMessage email = GreenMailUtil.createTextEmail("foo2@localhost", "foo@localhost", "some subject", "some content", greenMail.getSmtp().getServerSetup()); String[][] s = { {"US-ASCII", "ABC", "1"}, {"ISO-8859-15", "\u00c4\u00e4\u20AC", "2"}, {"UTF-8", "\u00c4\u00e4\u03A0", "3"} }; for (String[] charsetAndQuery : s) { final String charset = charsetAndQuery[0]; final String search = charsetAndQuery[1]; email.setSubject("subject " + search, charset); GreenMailUtil.sendMimeMessage(email); // messages[2] contains content with search text, match must be case insensitive final byte[] searchBytes = search.getBytes(charset); final Argument arg = new Argument(); arg.writeBytes(searchBytes); // Try with and without quotes searchAndValidateWithCharset(folder, charsetAndQuery[2], charset, arg); searchAndValidateWithCharset(folder, charsetAndQuery[2], '"' + charset + '"', arg); } } finally { store.close(); }} Example #23 private void searchAndValidateWithCharset(IMAPFolder folder, String expected, String charset, Argument arg) throws MessagingException { Response[] ret = (Response[]) folder.doCommand(new IMAPFolder.ProtocolCommand() { @Override public Object doCommand(IMAPProtocol protocol) { return protocol.command("UID SEARCH CHARSET " + charset + " TEXT", arg); } }); IMAPResponse response = (IMAPResponse) ret[0]; assertFalse(response.isBAD()); String number = response.getRest(); assertEquals("Failed for charset " + charset, expected, number);} Example #24 @BeforeEachvoid setUp() throws Exception { imapFolder = Mockito.mock(IMAPFolder.class); doReturn('.').when(imapFolder).getSeparator(); imapStore = Mockito.mock(IMAPStore.class); doReturn(imapFolder).when(imapStore).getFolder(anyString()); doReturn(imapFolder).when(imapStore).getDefaultFolder(); sourceIndex = Mockito.spy(new Index()); targetIndex = Mockito.spy(new Index()); storeCopier = Mockito.spy(new StoreCopier(imapStore, sourceIndex, imapStore, targetIndex, 1));} Example #25 @Testpublic void testSendAndReceiveWithQuotedAddress() throws MessagingException, IOException { // See String[] toList = {""John..Doe"@localhost", "abc."defghi".xyz@localhost", ""abcdefghixyz"@localhost", ""Foo Bar"admin@localhost" }; for(String to: toList) { greenMail.setUser(to, "pwd"); InternetAddress[] toAddress = InternetAddress.parse(to); String from = to; // Same from and to address for testing correct escaping of both final String subject = "testSendAndReceiveWithQuotedAddress"; final String content = "some body"; GreenMailUtil.sendTextEmailTest(to, from, subject, content); assertTrue(greenMail.waitForIncomingEmail(5000, 1)); final IMAPStore store = greenMail.getImap().createStore(); store.connect(to, "pwd"); try { IMAPFolder folder = (IMAPFolder) store.getFolder("INBOX"); folder.open(Folder.READ_ONLY); Message[] msgs = folder.getMessages(); assertTrue(null != msgs && msgs.length == 1); final Message msg = msgs[0]; assertEquals(to, ((InternetAddress)msg.getRecipients(Message.RecipientType.TO)[0]).getAddress()); assertEquals(from, ((InternetAddress)msg.getFrom()[0]).getAddress()); assertEquals(subject, msg.getSubject()); assertEquals(content, msg.getContent().toString()); assertArrayEquals(toAddress, msg.getRecipients(Message.RecipientType.TO)); } finally { store.close(); } }} Example #26 @BeforeEachvoid setUp() throws Exception { imapFolder = Mockito.mock(IMAPFolder.class); doReturn("MissingFolder").when(imapFolder).getFullName(); doReturn(Folder.HOLDS_MESSAGES | Folder.HOLDS_FOLDERS).when(imapFolder).getType(); doReturn(new Folder[0]).when(imapFolder).list(); imapStore = Mockito.mock(IMAPStore.class); doReturn(imapFolder).when(imapStore).getFolder(anyString()); doReturn(imapFolder).when(imapStore).getDefaultFolder(); sourceIndex = Mockito.spy(new Index()); sourceIndex.setFolderSeparator("."); targetIndex = Mockito.spy(new Index()); targetIndex.setFolderSeparator("_");} Example #27 @BeforeEachvoid setUp() throws Exception { imapFolder = Mockito.mock(IMAPFolder.class); doReturn('.').doReturn('_').when(imapFolder).getSeparator(); doReturn("INBOX").when(imapFolder).getFullName(); doReturn(Folder.HOLDS_MESSAGES | Folder.HOLDS_FOLDERS).when(imapFolder).getType(); doReturn(new Folder[0]).when(imapFolder).list(); imapStore = Mockito.mock(IMAPStore.class); doReturn(imapFolder).when(imapStore).getFolder(anyString()); doReturn(imapFolder).when(imapStore).getDefaultFolder(); sourceIndex = Mockito.spy(new Index()); sourceIndex.setFolderSeparator("."); targetIndex = Mockito.spy(new Index()); targetIndex.setFolderSeparator("_");} Example #28 @BeforeEachvoid setUp() throws Exception { defaultFolder = mockFolder("INBOX"); doReturn(new IMAPFolder[]{ mockFolder("Folder 1"), mockFolder("Folder 2") }).when(defaultFolder).list(); imapStore = Mockito.mock(IMAPStore.class); doReturn(defaultFolder).when(imapStore).getDefaultFolder(); doAnswer(invocation -> mockFolder(invocation.getArgument(0))) .when(imapStore).getFolder(anyString());} Example #29 public static void DeleteNote(Folder notesFolder, int numMessage) throws MessagingException, IOException { notesFolder = store.getFolder(sfolder); if (notesFolder.isOpen()) { if ((notesFolder.getMode() & Folder.READ_WRITE) != 0) notesFolder.open(Folder.READ_WRITE); } else { notesFolder.open(Folder.READ_WRITE); } //Log.d(TAG,"UID to remove:"+numMessage); Message[] msgs = {((IMAPFolder)notesFolder).getMessageByUID(numMessage)}; notesFolder.setFlags(msgs, new Flags(Flags.Flag.DELETED), true); ((IMAPFolder)notesFolder).expunge(msgs);} Example #30 @BeforeEachvoid setUp() throws Exception { imapFolder

4) StrMonthDay = Replace(StrFullDate, "/" & StrYear, "") StrMonth = Left(StrMonthDay, 2) StrDay = Right(StrMonthDay, Len(StrMonthDay) - 3) If Len(StrDay) = 1 Then StrDay = "0" & StrDay End If StrDate = StrYear & "-" & StrMonth & "-" & StrDay StrDateTime = StrDate & "_" & StrTime RegX.Pattern = "[\:\/\ ]" RegX.IgnoreCase = True RegX.Global = True ArrangedDate = RegX.Replace(StrDateTime, "-") ExitFunction: Set RegX = NothingEnd Function Sub GetFolder(Folders As Collection, EntryID As Collection, StoreID As Collection, Fld As MAPIFolder) Dim SubFolder As MAPIFolder Folders.Add Fld.FolderPath EntryID.Add Fld.EntryID StoreID.Add Fld.StoreID For Each SubFolder In Fld.Folders GetFolder Folders, EntryID, StoreID, SubFolder Next SubFolder ExitSub: Set SubFolder = NothingEnd Sub Function BrowseForFolder(Optional OpenAt As String) As String Dim ShellApp As Object Set ShellApp = CreateObject("Shell.Application"). _ BrowseForFolder(0, "Please choose a folder", 0, OpenAt) On Error Resume Next BrowseForFolder = ShellApp.self.Path On Error GoTo 0 Select Case Mid(BrowseForFolder, 2, 1) Case Is = ":" If Left(BrowseForFolder, 1) = ":" Then BrowseForFolder = "" End If Case Is = "" If Not Left(BrowseForFolder, 1) = "" Then BrowseForFolder = "" End If Case Else BrowseForFolder = "" End Select ExitFunction: Set ShellApp = NothingEnd Function Last edited by Aussiebear; 12-27-2024 at 07:21 PM. 04-19-2006, 09:46 PM #5 Jake,Have you tried Outlook redemption? I think that it's license allows internal/development use, although you'd have to check on that. Alternately, there is a program called Clickyes that I've used in the past. It works, but it does pause for a while to allow the warning