Jag har gjort en kod som exporterar information till excel.
I koden så har jag lagt till att excelfilen ska sparas i en mapp som
heter period.
Om inte användaren har lagt till mappen så fungerar
inte applikation. Därför undarar jag ifall man i från Access(VBA)
kan kontrollera ifall mappen finns annars ska den skapas.

Hoppas att förklaringen inte är så svår förstod.....



Tack på förhand

.Thomas

Använd FileSystemObject
för att kontrollera om katalogen finns och för att skapa en ny katalog

Har du något kod exempel??

Har inte riktigt någon koll på det.

.Thomas

FolderExist method i inbyggda hjälpen är ett tips.

inte snyggt men fungerar
If Not CreateObject("Scripting.FileSystemObject").FolderExists("c:\ab") Then
CreateObject("Scripting.FileSystemObject").CreateFolder ("c:\ab")
End If

Tackar så mycket....

Den fungerade....

Det blev så här:

If Not CreateObject("Scripting.FileSystemObject").FolderExists(gstrDBFolderPath & "Period") Then
CreateObject("Scripting.FileSystemObject").CreateFolder (gstrDBFolderPath & "Period")
End If

Varför inte använda VB's inbygdsa funktioner?

För attt kolla om en mapp existerar:
<code>
Public Function FolderExists(FolderName As String) As Boolean
On Error Resume Next
FolderExists = GetAttr(FolderName) And vbDirectory
End Function
</code>
Litet exempel som skapar en mapp om den inte finns
<code>
Dim strTemp As String
strTemp = "c:\Nisse"
If Not FolderExists(strTemp) Then
MkDir strTemp
End If
</code>

Om du inte vet att det är snyggt varför inte skriva om det som det borde vara?
<code>
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("c:\ab") Then
fso.CreateFolder "c:\ab"
End If
</code>