add debuggerstepthrough attribute to MoveFile

This commit is contained in:
Jonathan Jenne 2020-03-10 11:44:49 +01:00
parent 0c8a4fb8e3
commit 73c5255bd5

View File

@ -161,11 +161,13 @@ Public Class File
Return True
End Function
<DebuggerStepThrough>
Public Sub MoveTo(FilePath As String, Directory As String)
Dim oFileInfo As New FileInfo(FilePath)
IO.File.Move(FilePath, Path.Combine(Directory, oFileInfo.Name))
End Sub
<DebuggerStepThrough>
Public Sub MoveTo(FilePath As String, NewFileName As String, Directory As String)
Dim oFileInfo As New FileInfo(FilePath)
IO.File.Move(FilePath, Path.Combine(Directory, NewFileName))