Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Is this code error-bearable
Hello All,
following is a code to delete all contents of Two drives.But it is not working if first drive is not found. Is there a possibility to bypass the code if the drive is not there in system or any code to find if there is <drive letter drive in the system. ---------------- Careful, Either change drive letter to non exixtent ones or create virtual drives for experiment------------------- Dim FSO As Object Dim MyPath As String Set FSO = CreateObject("scripting.filesystemobject") MyPath = "i:\" '<< Change If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " doesn't exist" Exit Sub End If On Error Resume Next 'Delete files FSO.deletefile MyPath & "\*.*", True 'Delete subfolders FSO.deletefolder MyPath & "\*.*", True On Error GoTo 0 MyPath = "g:\" '<< Change If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " doesn't exist" Exit Sub End If On Error Resume Next 'Delete files FSO.deletefile MyPath & "\*.*", True 'Delete subfolders FSO.deletefolder MyPath & "\*.*", True On Error GoTo 0 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Is this code error-bearable
Is this what you mean?
Sub FileDelete() Dim FSO As Object Set FSO = CreateObject("scripting.filesystemobject") DeleteFiles FSO, "x:\" '<< Change drive to suit DeleteFiles FSO, "g:\" '<< Change Set FSO = Nothing End Sub Sub DeleteFiles(FSO As Object, MyPath As String) If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) Then On Error Resume Next 'Delete files FSO.deletefile MyPath & "\*.*", True 'Delete subfolders FSO.deletefolder MyPath & "\*.*", True On Error GoTo 0 Else MsgBox MyPath & " doesn't exist" End If End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "ashish128" wrote in message oups.com... Hello All, following is a code to delete all contents of Two drives.But it is not working if first drive is not found. Is there a possibility to bypass the code if the drive is not there in system or any code to find if there is <drive letter drive in the system. ---------------- Careful, Either change drive letter to non exixtent ones or create virtual drives for experiment------------------- Dim FSO As Object Dim MyPath As String Set FSO = CreateObject("scripting.filesystemobject") MyPath = "i:\" '<< Change If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " doesn't exist" Exit Sub End If On Error Resume Next 'Delete files FSO.deletefile MyPath & "\*.*", True 'Delete subfolders FSO.deletefolder MyPath & "\*.*", True On Error GoTo 0 MyPath = "g:\" '<< Change If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " doesn't exist" Exit Sub End If On Error Resume Next 'Delete files FSO.deletefile MyPath & "\*.*", True 'Delete subfolders FSO.deletefolder MyPath & "\*.*", True On Error GoTo 0 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Is this code error-bearable
Thanks Bob
It worked as a charm Bob Phillips wrote: Is this what you mean? Sub FileDelete() Dim FSO As Object Set FSO = CreateObject("scripting.filesystemobject") DeleteFiles FSO, "x:\" '<< Change drive to suit DeleteFiles FSO, "g:\" '<< Change Set FSO = Nothing End Sub Sub DeleteFiles(FSO As Object, MyPath As String) If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) Then On Error Resume Next 'Delete files FSO.deletefile MyPath & "\*.*", True 'Delete subfolders FSO.deletefolder MyPath & "\*.*", True On Error GoTo 0 Else MsgBox MyPath & " doesn't exist" End If End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "ashish128" wrote in message oups.com... Hello All, following is a code to delete all contents of Two drives.But it is not working if first drive is not found. Is there a possibility to bypass the code if the drive is not there in system or any code to find if there is <drive letter drive in the system. ---------------- Careful, Either change drive letter to non exixtent ones or create virtual drives for experiment------------------- Dim FSO As Object Dim MyPath As String Set FSO = CreateObject("scripting.filesystemobject") MyPath = "i:\" '<< Change If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " doesn't exist" Exit Sub End If On Error Resume Next 'Delete files FSO.deletefile MyPath & "\*.*", True 'Delete subfolders FSO.deletefolder MyPath & "\*.*", True On Error GoTo 0 MyPath = "g:\" '<< Change If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " doesn't exist" Exit Sub End If On Error Resume Next 'Delete files FSO.deletefile MyPath & "\*.*", True 'Delete subfolders FSO.deletefolder MyPath & "\*.*", True On Error GoTo 0 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
2 Questions | New Users to Excel | |||
code not unique find latest date | Excel Discussion (Misc queries) | |||
VLOOKUP for Zip Code Ranges | Excel Worksheet Functions | |||
Conform a total to a list of results? | Excel Discussion (Misc queries) | |||
Macro for changing text to Proper Case | Excel Worksheet Functions |