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 Return True
End Function End Function
<DebuggerStepThrough>
Public Sub MoveTo(FilePath As String, Directory As String) Public Sub MoveTo(FilePath As String, Directory As String)
Dim oFileInfo As New FileInfo(FilePath) Dim oFileInfo As New FileInfo(FilePath)
IO.File.Move(FilePath, Path.Combine(Directory, oFileInfo.Name)) IO.File.Move(FilePath, Path.Combine(Directory, oFileInfo.Name))
End Sub End Sub
<DebuggerStepThrough>
Public Sub MoveTo(FilePath As String, NewFileName As String, Directory As String) Public Sub MoveTo(FilePath As String, NewFileName As String, Directory As String)
Dim oFileInfo As New FileInfo(FilePath) Dim oFileInfo As New FileInfo(FilePath)
IO.File.Move(FilePath, Path.Combine(Directory, NewFileName)) IO.File.Move(FilePath, Path.Combine(Directory, NewFileName))