Browse DevX
Sign up for e-mail newsletters from DevX

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



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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.



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