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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب تعديل كود لاظهار الصور من السكانر f-www 8 1,035 22-02-17, 07:25 PM
آخر رد: عدنان الشمري
  [VB.NET] تعديل ع كود اتصال 3asfa~mdmra 0 47 06-02-17, 06:51 PM
آخر رد: 3asfa~mdmra
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 220 02-02-17, 06:12 PM
آخر رد: Marwan9990
  [سؤال] تعديل عدة سجلات ابو يوسف النواوي 2 8 163 30-01-17, 03:19 AM
آخر رد: ابو ليلى
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 79 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 122 22-01-17, 01:39 PM
آخر رد: thevirus
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 502 04-01-17, 01:12 AM
آخر رد: Namer
  [سؤال] تعديل html قبل عرضه في WebBrowser ali.alfoly 16 388 24-12-16, 11:48 AM
آخر رد: Basil Abdallah
Information [VB.NET] تعديل بيسط على الكود 3asfa~mdmra 6 188 18-12-16, 04:31 AM
آخر رد: 3asfa~mdmra
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 172 29-11-16, 01:37 AM
آخر رد: hglogtd

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


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