Config Manager WIP
This commit is contained in:
@@ -94,7 +94,7 @@ Public Class File
|
||||
IO.File.Move(FilePath, Path.Combine(Directory, oFileInfo.Name))
|
||||
End Sub
|
||||
|
||||
Private Function TestPathIsDirectory(Path As String) As Boolean
|
||||
Public Function TestPathIsDirectory(Path As String) As Boolean
|
||||
Dim oIsDirectory As Boolean = (System.IO.File.GetAttributes(Path) And FileAttributes.Directory) = FileAttributes.Directory
|
||||
Return oIsDirectory
|
||||
End Function
|
||||
|
||||
Reference in New Issue
Block a user