Private Sub FolderDeleteIfEmpty(FolderName As String)
 IO.Directory.Delete(FolderName)
 ' Delete directory - if not empty then throw exception
End Sub
'
Private Sub DeleteFolderAndSubFolders(FolderName As String)
 IO.Directory.Delete(FolderName, True)
 ' delete directory ,sub directories and files
End Sub
'
Private Sub FolderCreate(foldername As String)
 IO.Directory.CreateDirectory(foldername)
End Sub
'
Private Sub EnsureFolderIsEmpty(foldername As String)
 IO.Directory.Delete(foldername, True)
 IO.Directory.CreateDirectory(foldername)
End Sub
'
Private Sub FolderRename(OldFolderName As String, NewFolderName As String)
 IO.Directory.Move(OldFolderName, NewFolderName)
End Sub
  

DigitalDan.co.uk