تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل في كود نسخ ملف
#1
السلام عليكم 

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

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

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


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



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






[صورة مرفقة: 1469247709311.gif]
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}}
تم الشكر بواسطة:
#2
إستخدم فكرة dateline تكتب دالة تقوم بمسح كافة الرموز لتاريخ كامل ويبقى عندك ارقام فقط , هذا بالنسبة لحفظ مجلد باسم تاريخ.
اما بالنسبة للتنفيذ في وقت معين فالامر سهل لكن يتوقف على كيفية عمل البرنامج هل هو بعد النقر على زر امر؟
المهم تحقق من الوقت ونفذ.

تفضل الكلاس

PHP كود :
Imports System.IO
Public Class Form1
    Private 
Function gendate()
 
       Dim all As String ""
 
       For Each h In Now.ToShortDateString
            If IsNumeric
(hThen
                all 
&= h.ToString.Trim
            End 
If
 
       Next
        Return all
.Trim
    End 
Function
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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.FileNamedir.FullName "\" & o.SafeFileName)
        End If
    End Sub
End Class 
هذا بالنسبة لحظ المجلد بتاريخ اليوم
اما الطلب الاخر فاسهل تضع الاجراء الذي وضعناه بزر الامر في حدث مسؤول عن التحقق من وقت التنفيذ.
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: العزابي
#3
كود :
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)


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

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






[صورة مرفقة: 1469247709311.gif]
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}}
تم الشكر بواسطة: العزابي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده فى تعديل الكود لو سمحتوا نبيل فتحى 4 39 منذ 25 دقيقة مضت
آخر رد: نبيل فتحى
Exclamation [VB.NET] تعديل على الكود mervandzz 2 30 22-10-17, 05:28 PM
آخر رد: mervandzz
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 123 18-10-17, 09:49 PM
آخر رد: سعود
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 4 120 17-10-17, 12:09 AM
آخر رد: e-coder
  [VB.NET] اخر تعديل بالكلاس محمد اسماعيل 1 44 14-10-17, 09:41 PM
آخر رد: محمد اسماعيل
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 42 13-10-17, 06:39 PM
آخر رد: e-coder
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 67 21-09-17, 06:34 PM
آخر رد: D-Z
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 66 19-09-17, 03:33 PM
آخر رد: أبو نوره
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 186 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة في تعديل المشروع مصمم هاوي 9 564 15-09-17, 06:54 PM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم