Directory Recursion

Article View: comp.lang.basic.visual

Article #161

Back to comp.lang.basic.visual Previous Next

#161

From: Ty
Date: Sun, 21 Mar 1999 00:00

25 lines
1802 bytes

What I'm trying to do is do a pre-order directory listing.  However, my sub
prematurely ends at the "Name=Dir" when coming off a pop.  What I'm I doing
wrong? or can you suggest doing this a better way?

Private Sub GetDirInfo(Path)
    Dim Name, Response

    Name = Dir(Path, vbDirectory)
        Do While Name <> ""
            If Name <> "." And Name <> ".." Then
                If (GetAttr(Path & Name) And vbDirectory) = vbDirectory Then
                    Path = Path & Name & "\"
                                    Debug.Print Path

                    GetDirInfo (Path)
                            End If
            End If
            Name = Dir
        Loop
End Sub

--

Thanks.
-ty

Technical Details

Message-ID: <BK%I2.4513$WM.1120@news.rdc1.wa.home.com>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 108062,fcc273081167e07e,start
X-Google-Attributes: gid108062,public
X-Google-Thread: fbd17,fcc273081167e07e,start
X-Google-Attributes: gidfbd17,public
X-Google-Thread: 107824,fcc273081167e07e,start
X-Google-Attributes: gid107824,public
X-Google-Thread: 1143a7,fcc273081167e07e,start
X-Google-Attributes: gid1143a7,public
X-Google-Thread: f645d,fcc273081167e07e,start
X-Google-Attributes: gidf645d,public
From: "Ty" <tya@home.com>
Subject: Directory Recursion
Date: 1999/03/21
Message-ID: <BK%I2.4513$WM.1120@news.rdc1.wa.home.com>
X-Deja-AN: 457118927
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.0810.800
X-Complaints-To: abuse@home.net
X-Trace: news.rdc1.wa.home.com 921995297 24.5.120.252 (Sat, 20 Mar 1999 21:48:17 PDT)
Organization: @Home Network
X-MSMail-Priority: Normal
NNTP-Posting-Date: Sat, 20 Mar 1999 21:48:17 PDT
Newsgroups: comp.lang.basic.visual,comp.lang.basic.visual.database,cz.comp.lang.basic.visual,fj.comp.lang.visualbasic,microsoft.public.vstudio.development