تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن كود فيجوال بيسك نقل ملف وحذف ملف واستبدال ملف والكتابه على ملف
#1
ممكن كود فيجوال بيسك  نقل ملف وحذف ملف واستبدال ملف والكتابه على ملف
اوامر ان تكون ملفات داخل رسورس اداة وان تستبدل ملفات داخل كمبيوتر
الرد
تم الشكر بواسطة:
#2
كود :
Dim objFile As System.IO.File
      'معرفة امتداد ملف
       Dim blnExists As Boolean
       blnExists = objFile.Exists("c:\unlikely.txt")
       ' حذف ملف
       objFile.Delete("c:\goodbye.txt")
       ' نسخ ملف
       objFile.Copy("c:\source.txt", "e:\destination.txt")
       ' نقل ملف
       objFile.Move("c:\oldlocation.txt", "e:\newlocation.txt")
       ' Check whether a file is read-only
       Dim blnReadOnly As Boolean
       blnReadOnly = CType(objFile.GetAttributes("c:\readonly.txt").ReadOnly, Boolean)
       ' Check whether a file is hidden
       Dim blnHidden As Boolean
       blnHidden = CType(objFile.GetAttributes("c:\hidden.txt").Hidden, Boolean)
       ' معرفة تاريخ انشاء الملف
       Dim datCreated As DateTime
       datCreated = objFile.GetCreationTime("c:\created.txt")

كود :
'اعادة تسمية مجلد
My.Computer.FileSystem.RenameDirectory("C:\Test", "SecondTest")


'اعادة تسميه ملف
My.Computer.FileSystem.RenameFile("C:\Test.txt", "SecondTest.txt")
الرد
تم الشكر بواسطة: jam3h



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


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