تقييم الموضوع :
  • 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]
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}}
تم الشكر بواسطة: العزابي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 48 أمس, 01:39 PM
آخر رد: thevirus
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 417 04-01-17, 01:12 AM
آخر رد: Namer
  [سؤال] تعديل html قبل عرضه في WebBrowser ali.alfoly 16 301 24-12-16, 11:48 AM
آخر رد: Basil Abdallah
Information [VB.NET] تعديل بيسط على الكود 3asfa~mdmra 6 123 18-12-16, 04:31 AM
آخر رد: 3asfa~mdmra
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 103 29-11-16, 01:37 AM
آخر رد: hglogtd
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 233 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 181 29-10-16, 03:42 PM
آخر رد: أبووسم
  [VB.NET] محتاج تعديل الاكواد . 0theghost0 3 141 18-10-16, 10:52 AM
آخر رد: mhmd_911
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 153 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي
  تعديل على كود فتح ملف معين و إنشاء ملف جديد أبووسم 2 202 25-09-16, 02:14 PM
آخر رد: أبووسم

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


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