jj: oh my god /o\

Filesystem/File.vb

@@ -89,6 +89,11 @@ Public Class File
         Return True
     End Function
 
+    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
+
     Private Function TestPathIsDirectory(Path As String) As Boolean
         Dim oIsDirectory As Boolean = (System.IO.File.GetAttributes(Path) And FileAttributes.Directory) = FileAttributes.Directory
         Return oIsDirectory