[سعود]

كتبت كود بسيط آمل ان تجد به المطلوب

PHP كود :

 Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim sfd As New SaveFileDialog
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim dn As String = IO.Path.GetDirectoryName(sfd.FileName)
            Dim fn As String = (IO.Path.GetFileNameWithoutExtension(sfd.FileName))
            Dim ex As String = IO.Path.GetExtension(sfd.FileName)
            Dim all As String = dn & "\" & fn & "_" & Now.ToShortDateString.ToString.Trim.Replace("\", "_").Replace("/", "_") & ex
            My.Computer.FileSystem.WriteAllText(all, "BY saud", False)
        End If
    End Sub