شباب من عنده كود يعمل نسخ للمفات من فولدر إلى آخر عند الضغط على بوتن؟؟؟

qaher كتب:

شباب من عنده كود يعمل نسخ أو نقل للمفات من فولدر إلى آخر عند الضغط على بوتن؟؟؟

استورد فضاء الاسماء

Imports System.IO

هفترض ان عندك قاعدة بيانات اكسس على ال D اسمها Bankوانت تريد ان تنقلها الي ال E اكتب الاتى

			File.Copy("D:\" & "\" & "Bank.MDB", "E:\" & "bank.MDB")

بالتوفيق

تحياتى

File.Copy("D:/ammar/ammarcity.txt", "d:/ammars.txt", True)

D:/ammar/ammarcity.txt = اسم الملف الذي تريد نسخة

d:/ammars.txt = المكان الذي تريد تنسخ اليه (لا تنساء ان تسمية باسم)

وهنا بعض الاكاود اتمنا ان تستفيد ...

لتحريك ملف

File.Move("D:/ammar/ammarcity.txt", "D:/ammarcity.txt")

لانشاء ملف

File.Create("D:/ammarcity.txt", 43546456)

للحصوال على الزمن الذي تم انشاء الملف

 MsgBox(File.GetCreationTime("D:/ammar/ammarcity.txt"))

للحصوال على حالت الملف مثلاً اذا كان مخفي او للقراءة فقط والخصائص الاخرى

 Dim filter As FileAttributes

		filter = File.GetAttributes("d:\Temp")
		If CBool(filter And FileAttributes.Archive) Then
			MsgBox("ARchive")
		Else
			MsgBox("Nothing")
		End If

لا تنساء ان تجرب الخصائص الاخرى (h)

مرحبا

اقتباس

أخى روح الفيجوال بيسك نت اكواد جميلة وانا اريد كود خاص بالتأكد اذا كان الملف مفتوح من قبل اى مستخدم ام لا

تحياتى

طبعاً هذا الكود يقوم بتئكد اذا كان الملف مفتوح من قبل يقوم البرنامج بحذفة

ثم يقوم بعمل نسخ للملف (الذي تريدة) الى المكان الذي انت تريد تنسخ الملف اليه (لا تنساء ان تجعل اسم للملف والنوعية مثلاً .txt ( في النهاية

اما اذا للم يكن هنالك ملف فيقوم بفتتح ملف

If File.Exists("D:/ammar.txt") Then
			File.Delete("D:/ammar.txt")
			File.Copy("D:/ali/ammar.txt", "D:/ammar.txt")
		Else
			File.Copy("D:/ali/ammar.txt", "D:/ammar.txt")
		End If

طبعاً هنالك طريقة سريعة للنسخ حتاء اذا كان هنالك ملف مفتوح من قبل

File.Copy("D:/ammar/ammarcity.txt", "d:/ammars.txt", True)

لا تسناء عمل true

اي سوال ان موجود (في الفولدر او الملفات وا اي سوال ان شاء الله )

اخيراً احب اهديك كود يقوم بتشغيل اي ملف

System.Diagnostics.Process.Start(TextBox1.Text)

اكتب مسار الملف في التاكست بوكس (على العموم هنالك بعض الملفت التي لا يمكنك فتها )لتفادي هذة المشكلة

On Error Resume Next
		System.Diagnostics.Process.Start(TextBox1.Text)

طبعاً هذا الكود تخليه عند الضغط على باتن

سلامممم