» Basic file and folder examples using VBA in Microsoft Excel
VBA macro tip contributed by
Data Consulting offering Microsoft Excel Application development,
template customization, support and training solutions
How to get the active station and folder name:
MsgBox "Active station and folder name: " & CurDir
How to change the active station:
ChDrive "F" ' changes to the F-station
How to change the active folder:
ChDir "F:\My Documents\Private"
How to determine if a file exists in a folder:
If Dir("F:\My Documents\My Workbook.xls") <> "" Then
' the file exists, returns "" (empty string) if the file doesn't exist.
How to delete a file :
Kill "F:\My Documents\My Workbook.xls"
If you don't specify the station, Excel uses the active station.
If you don't specify the folder, Excel uses the active folder.
How to create a new folder:
MkDir "NewPrivateFolder" ' creates a new folder in the active folder
MkDir "F:\My Documents\NewPrivateFolder"
' creates a new folder in the existing folder F:\My Documents
How to delete a folder (folder must be empty):
' deletes the subfolder NewPrivateFolder in the active folder
RmDir "F:\My Documents\NewPrivateFolder"
' deletes the subfolder NewPrivateFolder in the folder F:\My Documents
How to copy a file (the file must be closed):
FileCopy "OrgWorkBook.xls", "CopyWorkBook.xls"
' copies OrgWorkBook.xls to CopyWorkBook.xls in the active folder
FileCopy "OrgWorkBook.xls", "F:\My Documents\CopyWorkBook.xls"
' copies OrgWorkBook.xls from the active folder to F:\My Documents\CopyWorkBook.xls
How to move a file (the file must be closed):
OldFilePath = "C:\OldFolder\Filename.xls" ' original file location
NewFilePath = "C:\NewFolder\Filename.xls" ' new file location
Name OldFilePath As NewFilePath ' move the file