السلام عليكم
كل عام وانتم بخير
الطلب الأول : عندي كود نسخ ملف والمشكله عندي هي اني احتاج الملف عند وضعه يكون بمجلد جديد بتاريخ اليوم الحالي
الطلب الثاني : ان نسخ الملف يكون بوقت معين كل يوم الساعة 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
هذا بالنسبة لحظ المجلد بتاريخ اليوم
اما الطلب الاخر فاسهل تضع الاجراء الذي وضعناه بزر الامر في حدث مسؤول عن التحقق من وقت التنفيذ.
كود :
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)
يعطيك العافيه وما قصرت واشكر مساعدتك لي
لقيت كود ومشى الوضع