[hglogtd]

السلام عليكم 

كل عام وانتم بخير 

الطلب الأول : عندي كود نسخ ملف والمشكله عندي هي اني احتاج الملف عند وضعه يكون بمجلد جديد بتاريخ اليوم الحالي 

الطلب الثاني : ان نسخ الملف يكون بوقت معين كل يوم الساعة 2 ظهرا 

كود :

My.Computer.FileSystem.CopyFile("C:\Users\majed\Desktop\data\do.txt", "C:\Users\majed\Desktop\data1\DateTime.txt")

يعطيكم العافيه

[سعود]

إستخدم فكرة dateline تكتب دالة تقوم بمسح كافة الرموز لتاريخ كامل ويبقى عندك ارقام فقط , هذا بالنسبة لحفظ مجلد باسم تاريخ.
اما بالنسبة للتنفيذ في وقت معين فالامر سهل لكن يتوقف على كيفية عمل البرنامج هل هو بعد النقر على زر امر؟
المهم تحقق من الوقت ونفذ.

---

تفضل الكلاس

PHP كود :

Imports System.IO
Public Class Form1
    Private Function gendate()
        Dim all As String = ""
        For Each h In Now.ToShortDateString
            If IsNumeric(h) Then
                all &= h.ToString.Trim
            End If
        Next
        Return all.Trim
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim o As New OpenFileDialog
        If o.ShowDialog = DialogResult.OK Then
            Dim dir As New DirectoryInfo(gendate)
            If dir.Exists = False Then
                dir.Create()
            End If
            My.Computer.FileSystem.CopyFile(o.FileName, dir.FullName & "\" & o.SafeFileName)
        End If
    End Sub
End Class 


هذا بالنسبة لحظ المجلد بتاريخ اليوم
اما الطلب الاخر فاسهل تضع الاجراء الذي وضعناه بزر الامر في حدث مسؤول عن التحقق من وقت التنفيذ.

[hglogtd]

كود :

My.Computer.FileSystem.CopyFile(
  "C:\Users\majed\Desktop\data\do.txt",
  "C:\Users\majed\Desktop\data1\" & DateTime.Now.ToString("yyyy-MM-dd_HH-mm-ss") & ".txt",
  Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
  Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

يعطيك العافيه وما قصرت واشكر مساعدتك لي 

لقيت كود ومشى الوضع