CurDir$ Function

Returns a String representing the current path for the specified drive or the default drive. The dollar sign suffix ($) explicitly indicates that this function returns a String type (not a Variant).

Syntax

CurDir$[(drive)]

Parameters

• drive: Optional. String expression that specifies an existing drive. If no drive is specified or if drive is a zero-length string (""), CurDir$ returns the path for the current drive. The drive parameter can be just the drive letter (e.g., "C") or include a colon (e.g., "C:").

Return Value

Returns a String containing the current directory path for the specified drive. The returned path does not include a trailing backslash unless the current directory is the root directory. The return value is always a String type (never Variant).

Remarks

• The CurDir$ function always returns a String, while CurDir (without $) can return a Variant.
• Without arguments, returns current directory of current drive.
• With drive specified, returns current directory of that drive.
• Does not include trailing backslash (except for root directory).
• Drive parameter is case-insensitive ("C" and "c" are equivalent).
• Each drive maintains its own current directory in Windows.
• On Windows, returns full path (e.g., "C:\Windows\System32").
• Root directory returns drive with backslash (e.g., "C:\").
• For better performance when you know the result is a string, use CurDir$ instead of CurDir.

Drive Specification

The drive parameter can be specified in several ways: - CurDir$() - Current drive - CurDir$("") - Current drive - CurDir$("C") - Drive C - CurDir$("C:") - Drive C - CurDir$("D") - Drive D

Typical Uses

1. Directory context - Determine current working directory
2. Path building - Construct full paths from relative paths
3. Directory restoration - Save and restore directory state
4. File operations - Locate files relative to current directory
5. Logging - Record current directory for debugging
6. Validation - Verify expected working directory
7. Multi-drive operations - Work with multiple drives simultaneously

Basic Examples

' Example 1: Get current directory
Dim currentDir As String
currentDir = CurDir$()

' Example 2: Get current directory of specific drive
Dim cDrive As String
cDrive = CurDir$("C")

' Example 3: Check if in expected directory
If CurDir$() = "C:\MyApp" Then
MsgBox "In correct directory"
End If

' Example 4: Display current directory
MsgBox "Current directory: " & CurDir$()

Common Patterns

Save and Restore Directory

Sub ProcessInDifferentDirectory(targetDir As String)
Dim savedDir As String

' Save current directory
savedDir = CurDir$()

On Error GoTo ErrorHandler

' Change to target directory
ChDir targetDir

' Do work in target directory
ProcessFiles

' Restore original directory
ChDir savedDir
Exit Sub

ErrorHandler:
' Always restore directory even on error
ChDir savedDir
Err.Raise Err.Number, , Err.Description
End Sub

Building Full Path from Relative Path

Function GetFullPath(relativePath As String) As String
Dim currentDir As String
currentDir = CurDir$()

' Check if current dir already ends with backslash
If Right$(currentDir, 1) = "\" Then
GetFullPath = currentDir & relativePath
Else
GetFullPath = currentDir & "\" & relativePath
End If
End Function

Ensuring Correct Working Directory

Sub EnsureWorkingDirectory(expectedDir As String)
Dim currentDir As String
currentDir = CurDir$()

If UCase$(currentDir) <> UCase$(expectedDir) Then
ChDir expectedDir
End If
End Sub

Multi-Drive Directory Tracking

Function GetAllDriveDirs() As Collection
Dim drives() As String
Dim result As New Collection
Dim i As Integer

drives = Array("C", "D", "E", "F")

For i = LBound(drives) To UBound(drives)
On Error Resume Next
result.Add CurDir$(drives(i)), drives(i)
On Error GoTo 0
Next i

Set GetAllDriveDirs = result
End Function

Path Validation

Function IsValidDirectory(dirPath As String) As Boolean
Dim savedDir As String
Dim result As Boolean

savedDir = CurDir$()
result = False

On Error Resume Next
ChDir dirPath
If Err.Number = 0 Then
result = True
ChDir savedDir
End If
On Error GoTo 0

IsValidDirectory = result
End Function

Log File Path Construction

Function GetLogFilePath() As String
Dim logDir As String
Dim logFile As String

logDir = CurDir$()
logFile = "application_" & Format$(Now, "yyyymmdd") & ".log"

If Right$(logDir, 1) = "\" Then
GetLogFilePath = logDir & logFile
Else
GetLogFilePath = logDir & "\" & logFile
End If
End Function

Working Directory Report

Sub ReportCurrentDirectories()
Dim report As String

report = "Current Directory: " & CurDir$() & vbCrLf

On Error Resume Next
report = report & "C: Drive: " & CurDir$("C") & vbCrLf
report = report & "D: Drive: " & CurDir$("D") & vbCrLf
On Error GoTo 0

MsgBox report, vbInformation, "Directory Report"
End Sub

Relative File Search

Function FindFileInCurrentDir(filename As String) As String
Dim fullPath As String
Dim currentDir As String

currentDir = CurDir$()

If Right$(currentDir, 1) = "\" Then
fullPath = currentDir & filename
Else
fullPath = currentDir & "\" & filename
End If

If Dir$(fullPath) <> "" Then
FindFileInCurrentDir = fullPath
Else
FindFileInCurrentDir = ""
End If
End Function

Directory Depth Calculator

Function GetDirectoryDepth() As Integer
Dim path As String
Dim depth As Integer
Dim i As Integer

path = CurDir$()
depth = 0

For i = 1 To Len(path)
If Mid$(path, i, 1) = "\" Then
depth = depth + 1
End If
Next i

GetDirectoryDepth = depth - 1  ' Subtract 1 for root backslash
End Function

Safe Directory Operation Wrapper

Function ExecuteInDirectory(dirPath As String, operation As String) As Boolean
Dim savedDir As String
Dim success As Boolean

savedDir = CurDir$()
success = False

On Error GoTo ErrorHandler

' Change to target directory
ChDir dirPath

' Execute operation based on parameter
Select Case operation
Case "CLEANUP"
DeleteTempFiles
Case "BACKUP"
BackupFiles
Case "SCAN"
ScanFiles
End Select

success = True

ErrorHandler:
' Always restore directory
ChDir savedDir
ExecuteInDirectory = success
End Function

Related Functions

• CurDir: Returns current directory as Variant instead of String
• ChDir: Changes the current directory
• ChDrive: Changes the current drive
• App.Path: Returns the path where the application executable is located
• Dir$: Returns files or directories matching a pattern
• MkDir: Creates a new directory
• RmDir: Removes an empty directory

Best Practices

1. Always save current directory before changing it
2. Use error handling when changing directories
3. Restore original directory in error handlers
4. Use App.Path for application-relative paths instead of relying on current directory
5. Check for trailing backslash when building paths
6. Use CurDir$ instead of CurDir for better performance
7. Be aware that current directory can be changed by other code
8. Document assumptions about current directory in your code
9. Use absolute paths when possible to avoid directory dependencies
10. Test code with different working directories

Performance Considerations

• CurDir$ is slightly more efficient than CurDir because it avoids Variant overhead
• Directory queries are fast system calls
• Cache the result if you need to use it multiple times in quick succession
• Avoid excessive directory changes as they affect all operations

Platform Notes

• Windows maintains separate current directories for each drive
• Network paths (UNC paths) are supported (e.g., "\\server\share\folder")
• Long path names (> 260 characters) may cause issues in VB6
• Current directory is process-specific and thread-safe
• Some operations (like file dialogs) may change the current directory

Error Conditions

• If the specified drive does not exist, an error occurs (Error 68: Device unavailable)
• If the drive is not ready (e.g., no disk in drive), an error occurs (Error 71: Disk not ready)
• Network drives that are disconnected will cause errors

Security Considerations

1. Don't assume the current directory for security-sensitive operations
2. Use absolute paths for configuration and data files
3. Be aware that current directory can be manipulated by attackers
4. Validate directory paths before changing to them
5. Use App.Path for application resources rather than current directory

Limitations

• Cannot set the current directory (use ChDir for that)
• Path is limited to MAX_PATH characters (typically 260) in VB6
• Does not resolve symbolic links or junctions
• Drive letter parameter is Windows-specific