[3booody]

تفضل ان شاء الله يكون طلبك

كود :

Dim info As New IO.FileInfo("D:\Folder\Text.txt")
        Dim txt As String = IO.File.ReadAllText("D:\Folder\Text.txt")
        Dim msg = MsgBox(txt, MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            FileIO.FileSystem.CopyFile(info.DirectoryName, "المسار الجديد")
        ElseIf msg = MsgBoxResult.No Then
            Exit Sub
        End If