FP2000: Folders.Add Method Fails on External Files (219573)

WORKAROUND

The correct way to use Folders.Add method is to create a folder in your web. For example, the following code will create a folder named "MyNewFolder" in your current web:

	Sub CreateFolder ()
	   Dim newfolder as WebFolder
	   Set newfolder=ActiveWeb.RootFolder.Folders.Add("MyNewFolder")
	End Sub
				

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. To workaround this behavior, use the following sample code. This code creates a new folder called "MyNewFolder" and places all the files from the specified folder into that folder.

NOTE: You must have at least one file in the folder that you specify. To insert the code, follow these steps:

1. On the Tools menu, point to Macro, and then click Visual Basic Editor.
2. On the Insert menu, click Module.
3. In the Module you just created, type the following code:

   Sub importfiles()
       Dim mypath, myname, myfile
       Dim newfolder As WebFolder
   
       mypath = "c:\My Documents\"  
       '   This is the path location that you wish to get files from.
   
       myname = Dir(mypath, vbDirectory)
   
       Set newfolder = ActiveWeb.RootFolder.Folders.Add("MyNewFolder")
       '   This creates a new folder in the current web named MyNewFolder
   
       '   The following loop goes through each file in each folder in the 
       '   specified file location.
   
       Do While myname <> ""
           If myname <> "." And myname <> ".." Then
               If (GetAttr(mypath & myname) And vbNormal) = vbNormal Then
                ActiveWeb.RootFolder.Folders("MyNewFolder").Files.Add (myname)
                '   This adds each file name to the folder in the current web 
                '   in the folder named MyNewFolder
               End If
           End If
           myname = Dir
       Loop
       
   End Sub
   					

4. On the Run menu, click Run, or press F5.