Folder Existence (1 Viewer)

aziz rasul · Dec 14, 2001

I have several DoCmd.TransferText statements which export's data to the C:\Text Files folder. If the "Text Files" folder does not exist, how can I check this using VBA and hence programatically create the folder.

prycejones · Dec 14, 2001

Use the DIR command.
There are several constants you can use with this command, one of them is the VBDirectory.

Click help|contents|find and enter "dir function".

Hope this is what you want

BukHix · Dec 14, 2001

Create a new module and put this in it:

Function fIsFileDIR(stPath As String, Optional lngType As Long) As Integer
On Error Resume Next
fIsFileDIR = Len(Dir(stPath, lngType)) > 0
End Function

And then put this under a command button (as an example):

Dim strDir As String
Dim intDir As Integer

strDir = "c:\Text Files"
intDir = (fIsFileDIR(strDir, vbDirectory))

If intDir = 0 Then
MsgBox "I will create the directory now"
MkDir strDir
Else
MsgBox "Folder allready exists"
End If

That should get you started.

[This message has been edited by BukHix (edited 12-14-2001).]

aziz rasul · Dec 18, 2001

Thanks BukHix, it worked.

ghudson · Feb 15, 2003

Same result with a lot less code...

Code:

    If Dir("C:\Text Files", vbDirectory) = "" Then
        MkDir ("C:\Text Files")
    Else
        'do nothing for the "C:\Text Files" directory already exists
        'MsgBox "C:\Text Files\ directory already exists"
    End If

HTH

DrChocolate · Sep 20, 2012

Folder existence & creation with a variable

Dear ghudson, Your example is very clear except I fear that my brain is not wrapping itself well around

1) vbDirectory and
2) datestamping with a variable

despite searching and reading posts. Two quick questions:

1) What is the term vbDirectory and how do I use it? Would you post a very simple specific example showing how vbDirectory works?

2) I want a unique subdirectory name for each creation; may I substitute a variable for your example of MkDir ("C:\Text Files") such as

pathname = "SW_ & Format(now, yyyyddmmtttt"
MkDir (pathname)

which would translate into something such as

c:\SW_201209191320\

meaning: Sept 19, 2012 at 13:20.

Thanks for your time and expertise! Dr.C.

pbaldy · Sep 20, 2012

Hey Doc, in case ghudson isn't around (hasn't been around much), you can find info on 1 in VBA help on the Dir() function.

For 2, yes, you can build a string and use it in either function, as long as the string evaluates to a valid path. By that I mean your example of:

pathname = "SW_ & Format(now, yyyyddmmtttt"
MkDir (pathname)

didn't include the C:\, so wasn't a valid path.

boblarson · Sep 20, 2012

Re: Folder existence & creation with a variable

DrChocolate said:
Two quick questions:

1) What is the term vbDirectory and how do I use it? Would you post a very simple specific example showing how vbDirectory works?

vbDirectory is a Visual Basic CONSTANT. Constants allow you to use an easy to remember name instead of having to type the value (the value of vbDirectory by the way is 16, which you can find out yourself on any constant by typing it into your VBA IMMEDIATE WINDOW like:
?vbDirectory

and then hit your ENTER key. It will then return the value like this:
?vbdirectory
16

2) I want a unique subdirectory name for each creation; may I substitute a variable for your example of MkDir ("C:\Text Files") such as

pathname = "SW_ & Format(now, yyyyddmmtttt"
MkDir (pathname)

which would translate into something such as

c:\SW_201209191320\

meaning: Sept 19, 2012 at 13:20.

Yes, you should be able to do it, but you don't use the parentheses. It would just be

MkDir pathname

boblarson · Sep 20, 2012

I'm slow typing tody.

Folder Existence (1 Viewer)

aziz rasul

Active member

prycejones

New member

BukHix

Registered User.

aziz rasul

Active member

ghudson

Registered User.

DrChocolate

New member

pbaldy

Wino Moderator

boblarson

Smeghead

boblarson

Smeghead

Similar threads

Users who are viewing this thread