Dir$

I'm using a loop containing:

Dir$("*.*", vbDirectory)

to get a list of directories in the current folder, but it's also returning all the files in the current folder (which I don't want!!)

Any ideas why? (And more to the point...how to stop it!!)

------------------
Matthew Ralston
E-Mail: [email protected]
ICQ: 31422892
Web Site: My Home Page
AKA: ...::: The Fragmeinster :::... (On Quake 3 World Forums)

Sorry about my English, but my Scouse is dead good!

Try

Dir$("*.", vbDirectory)

to get the directories only - this works in DOS (I've never tried it in VB!)

Note: In DOS at least, this returns any files/folders with no extension (normally this is just the folders but you can sometimes get a few files turning up as well)



------------------
Mark "Buzby" Beeton
VB Developer
[email protected]

Try

Dir$("*.", vbDirectory)

to get the directories only - this works in DOS (I've never tried it in VB!)

Note: In DOS at least, this returns any files/folders with no extension (normally this is just the folders but you can sometimes get a few files turning up as well)



------------------
Mark "Buzby" Beeton
VB Developer
[email protected]

Try

Dir$("*.", vbDirectory)

to get the directories only - this works in DOS (I've never tried it in VB!)

Note: In DOS at least, this returns any files/folders with no extension (normally this is just the folders but you can sometimes get a few files turning up as well)



------------------
Mark "Buzby" Beeton
VB Developer
[email protected]

Sorry, Azzmodan, your method still returns all the files in the specified path - as well as the folders. I ONLY want the folders!!

Alternatively...is there a RELIABLE way to determine if a path points to a file or folder...I could filter them out that way...

------------------
Matthew Ralston
E-Mail: [email protected]
ICQ: 31422892
Web Site: My Home Page
AKA: ...::: The Fragmeinster :::... (On Quake 3 World Forums)

Sorry about my English, but my Scouse is dead good!

I've just had a look at the help file and it says that "vbDirectory":

Quote:

---

Specifies directories or folders in addition to files with no attributes.

---

How can I stop Dir$ from returning "files with no attributes".

------------------
Matthew Ralston
E-Mail: [email protected]
ICQ: 31422892
Web Site: My Home Page
AKA: ...::: The Fragmeinster :::... (On Quake 3 World Forums)

Sorry about my English, but my Scouse is dead good!

Hi,
Might you be able to use something like this?

A DirListBox control displays directories and paths at run time. Use this control to display a hierarchical list of directories. You can create dialog boxes that, for example, enable a user to open a file from a list of files in all available directories.

Syntax

DirListBox

Remarks

Set the List, ListCount, and ListIndex properties to enable a user to access items in a list. If you also display the DriveListBox and FileListBox controls, you can write code to synchronize them with the DirListBox control and with each other.

Al.


------------------
A computer is a tool, not a toy.
<A HREF="mailto:[email protected]
[email protected]">[email protected]
[email protected]</A>

Try

Code:

---

Dir$("*.*", (vbDirectory) And (Not vbNormal))

---

I dunno if it will work, but it's worth a try :D

------------------
r0ach(tm)

Nope, sorry...nice try though!! I considered using something like that already and neither mine nor yours worked. :(

As for using a directory list box, I'd rather avoid this because the program is running as a CGI program on a web server...so it needs to be as small, fast and memory efficient as possible!

Any other ideas? Is there an API that returns only folders?

------------------
Matthew Ralston
E-Mail: [email protected]
ICQ: 31422892
Web Site: My Home Page
AKA: ...::: The Fragmeinster :::... (On Quake 3 World Forums)

Sorry about my English, but my Scouse is dead good!

Can

Public Declare Function GetFileType Lib "kernel32" Alias "GetFileType" (ByVal hFile As Long) As Long

tell me if a file is really a folder? Dunno how to use this...?

------------------
Matthew Ralston
E-Mail: [email protected]
ICQ: 31422892
Web Site: My Home Page
AKA: ...::: The Fragmeinster :::... (On Quake 3 World Forums)

Sorry about my English, but my Scouse is dead good!

Euh use, Dir("C:\",vbdirectory) for all Dir's in the specified dir.

If you use "*." you don't get any dir's with extensions(and some dir's have extensions)

------------------

Vincent van den Braken
EMail: [email protected]
ICQ: 15440110
Homepage: http://www.azzmodan.demon.nl

Come on! Help me out here! :)

------------------
Matthew Ralston
E-Mail: [email protected]
ICQ: 31422892
Web Site: My Home Page
AKA: ...::: The Fragmeinster :::... (On Quake 3 World Forums)

Sorry about my English, but my Scouse is dead good!

Sorry, but this is just plain simple VB programming.. should be able to find it out yourself.. but anyway, this gave a nice listing of all my folders in the C:\Program Files\ folder:

Code:

---

    Dim s As String
    Dim sStartIn As String
    sStartIn = "C:\Program Files\"
    s = Dir$(sStartIn, vbDirectory)
    Do While s <> ""
        If s <> "." And s <> ".." Then
            If (GetAttr(sStartIn & s) And vbDirectory) Then
                Debug.Print s
            End If
        End If
        s = Dir$()
    Loop

---

Thanks!! An asnwer that works! :)

I didn't even know the getattr function existed...silly me!

My directory listing looks much better now!

------------------
Matthew Ralston
E-Mail: [email protected]
ICQ: 31422892
Web Site: My Home Page
AKA: ...::: The Fragmeinster :::... (On Quake 3 World Forums)

Sorry about my English, but my Scouse is dead good!