Private Sub CommandButton1_Click()
Create variable for file name
Dim filename As String
Assign path to variable
filename = Dir("E:\sales")
End Sub

Private Sub CommandButton1_Click()
Range("A1").Value = CurDir
MsgBox CurDir
End Sub

Private Sub CommandButton1_Click()
'first create a note pad in E drive
'denotes file length in bytes
MsgBox FileLen("E:\Sales.txt")
End Sub

Private Sub CommandButton1_Click()
'Create Directory\Folder in F Drive
MkDir ("F:\sales")
End Sub

Private Sub CommandButton1_Click()
'Delete all files in a directory
Kill "F:\sales\*.txt"
End Sub

Private Sub CommandButton1_Click()
Dim source As String
source = "d:\abc"
'Delete text document in source path
MsgBox source & "\" & "*.txt"
Kill source & "\" & "*.txt"
End Sub

Private Sub CommandButton1_Click()
Dim j As String
j = CurDir
'returns date of created or last modified
MsgBox FileDateTime(j)
End Sub

Private Sub CommandButton1_Click()
'it changes the current directory
ChDir "D:\sales"
End Sub

Private Sub CommandButton1_Click()
ChDrive "F:"
End Sub

Private Sub CommandButton1_Click()
FileCopy "E:\sales\abc.txt", "F:\sales\abc.txt"
End Sub

Private Sub CommandButton1_Click()
Kill ("D:\sales.txt")
End Sub