Hvordan opretter jeg automatisk en mappe ud fra AutoID

Du kan oprette en mappe på følgende måde
   
    Dim fso As New FileSystemObject
    Dim mappe As folder
    Set mappe = fso.CreateFolder("X:\kontakt")

Du ku evt kontrollere om mappen allerede eksistere ved følgende:
 
  Dim fso As New FileSystemObject
  Dim mappe As folder

    If fso.FolderExists("X:\kontakt") = True
      OpenLink...
    Else
      Set mappe = fso.CreateFolder("X:\kontakt")
    End If

Var det noget du kunne bruge eller...???

hubs>I havent used the filesystemObject in Access very much but I dont seem to be able to get your example to work!

I can get this to work

dim fso
Set fs = CreateObject("Scripting.FileSystemObject")

dim fs

terry >> Don't know if it makes a difference, but I use Access 2002 and I seem to remember that your are '97 wizard :o)

but I am using Access 2002! Do you have any references?

hubs>I see you have only been active a couple of months, why do you say you seem to remember I was a 97 wizard, do I know you maybe?

terry >> nope you wouldn't know me, but over the past few months you have unknowingly helped me tremendously with a lot of your previous answers to other people :o) so thank you very much for that. As to the reference I just used MS Scripting Runtime... I think :o)

This is the code I currently use...

    ' Create Folder and Save Excel
    Dim fso As New FileSystemObject
    Dim fldr As folder   
    If fso.FolderExists("C:\Excel") = True Then fso.DeleteFolder ("C:\Excel")
    Set fldr = fso.CreateFolder("C:\Excel")
    WrkBook.SaveAs Filename:="C:\Excel\ImportTemplate.xls"

jaze >> Var det noget du kunne bruge til noget? Du kan sagtens tilføje din Me.autoID variable til stien, hvis det er...