خاصية FileCopy

أستخدم الكود التالي وهو مضمون وأنا مجربه:-

الكود:-

FileCopy (App.Path & "\a.exe"), ("C:\Windows\System32\a.exe")

بفرض ان أسم البرنامج = "a".

لا ليس هدا انا اريد ان يعمل البرنامج كوبي و حسب يعني و يقوم المستخدم بنفسه بلصق البرنامج يعني لو نقرت على commad1_click راح يتنسخ اليرنامج من هدا الرابط C:\Soft.exe و راح يقوم المستعمل بالدهاب لملف معين مثلا C:\TEST\ و راح يلصقه هناك بالنقر يسارا ثم PASTE ارجوكم ان تفهموا الوضع

ayoublasri كتب:

السلام عليكم

لدي مشكلة كبييرة بالبرنامج فانا اريد ان يعمل البرنامج Copy لنفسه و يبقى في Clipboard لاني جربة و حاولت مع مختلف الدوال من Filecopy &

Copy & Xcopy of msdos

اريد ان يعمل البرنامج كوبي و حسب يعني و يقوم المستخدم بنفسه بلصق البرنامج يعني لو نقرت على commad1_click راح يتنسخ اليرنامج من هدا الرابط C:\Soft.exe و راح يقوم المستعمل بالدهاب لملف معين مثلا C:\TEST\ و راح يلصقه هناك بالنقر يسارا ثم PASTE ارجوكم ان تفهموا الوضع

فارجو مساعدتي لاني محتاج هدا الكود كثييييرااا

عمل كوبي فقط لملف

أنا فاهمك , عموما الموضوع مش سطرين كود لكن هنعمل ايه بقى , تفضل : Copy File(s) to clipboard بس مجربتوش.

السلام عليكم

ماشاء الله عليك أخي msayed2004 رابط الموضوع هذي قصة مهيب موضوع نسخ لحافظة الويندوز!

أخي الكريم الكود المستعمل هو الكود التالي:-

Clipboard.SetData (App.Path & "\Soft.exe")

وأتمنى أن يكون الكود هو المطلوب.

الكود مش شغال :s

السلام عليكم ورحمة الله وبركاته

جرب

Option Explicit

Private Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" _
(SEI As SHELLEXECUTEINFO) As Long

Private Type SHELLEXECUTEINFO
	cbSize		As Long
	fMask		 As Long
	hwnd		  As Long
	lpVerb		As String
	lpFile		As String
	lpParameters  As String
	lpDirectory   As String
	nShow		 As Long
	hInstApp	  As Long

	lpIDList	  As Long	 ' Optional parameter
	lpClass	   As String   ' Optional parameter
	hkeyClass	 As Long	 ' Optional parameter
	dwHotKey	  As Long	 ' Optional parameter
	hIcon		 As Long	 ' Optional parameter
	hProcess	  As Long	 ' Optional parameter
End Type
Enum Enam_OrdarName
	Copy = "Copy"
	Cut = "Cut"
	Paste = "Paste"
	Properties = "Properties"
End Enum
 Const SEE_MASK_INVOKEIDLIST = &HC
 Const SEE_MASK_NOCLOSEPROCESS = &H40
 Const SEE_MASK_FLAG_NO_UI = &H400
Sub FileJop(Filename As String, OrdarName As Enam_OrdarName) ', OwnerhWnd As Long) As Long
	Dim SEI As SHELLEXECUTEINFO
	With SEI
		.cbSize = Len(SEI)
		.fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
		.lpVerb = OrdarName
		.lpFile = Filename
	End With
  Call ShellExecuteEX(SEI)
End Sub