MoveToDir
Sub ChDir(Path as string) Dim Target as string If Mid(Path,2,2) = ":\" then Target = left(Path, 3) if Target <> Left(CurDir, 3) then ChDrive Target End if End if Vba.ChDir Path End Sub
Sub ChDir(Path as string)
Dim Target as string
If Mid(Path,2,2) = ":\" then
Target = left(Path, 3)
if Target <> Left(CurDir, 3) then
ChDrive Target
End if
End if
Vba.ChDir Path
End Sub
( movetodir.html )- by Paolo Puglisi
- Modifica del 17/12/2023