Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Aug 6, 1997

Subclassing ChDir

If your application's current directory is D:\OldDir, the call ChDir(C:\NewDir) will change the C Drive's default directory to NewDir, but the application's current directory will remain D:\OldDir. It seemed to me that ChDir should change the application's current directory in all cases. This subclassed ChDir subroutine handles drive changes, too:

 
Sub ChDir(Path As String)
        Dim TargetDrive As String

        ' if 2nd and 3rd letters of target 
        ' are ":\"

        If Mid(Path, 2, 2) = ":\" Then
                TargetDrive = Left(Path, 3)
                If TargetDrive <> _
                        Left(CurDir, 3) Then
                        ChDrive TargetDrive
                End If
        End If

' Call VB's ChDir function
        VBA.ChDir Path

End Sub



Bruce Hamilton
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date