منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل في كود نسخ ملف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل في كود نسخ ملف (/showthread.php?tid=16389)

تعديل في كود نسخ ملف - hglogtd - 08-07-16

السلام عليكم 

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

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

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


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



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

RE: تعديل في كود نسخ ملف - سعود - 08-07-16

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

RE: تعديل في كود نسخ ملف - hglogtd - 08-07-16

كود :
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)


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

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