[فـ ـيـ ـصـ ـل]

السلام عليكم


اخباركم حبايبي عساكم بخير

الكود الاول
كود ينسخ ملف من مسار معين الى المكان الى فيه البرنامج
ملاحظه اسم المستخدم HP شوف المسار
C:\Users\Hp\AppData\Roaming\Thinstall\Phonebook (SEC)\%ProgramFilesDir%\Phonebook (SEC)
انا بستخدمه على اكثر من جهاز يعني ابي يقبل على اي جهاز مو بس الاجهزه الى اسم مستخدم HP

الكود الثاني 
نقل ملف من مسار الى في البرنامج الى مسار معين الى هو
C:\Users\Hp\AppData\Roaming\Thinstall\Phonebook (SEC)\%ProgramFilesDir%\Phonebook (SEC)
طبعن لا تنسو كلمه HP اريد الكود يعمل على اي جهاز واي اسم مستخدم 

وشكرا

[Ahmed_Mansoor]

بسم الله الرحمن الرحيم

إستخدم هذا الكود :

كود :

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Function Get_UserName() As String
On Error Resume Next: Err.Clear
   
Dim StrUserName As String

'Create a buffer
StrUserName = String(100, Chr$(0))
'Get the username
GetUserName StrUserName, 100
'strip the rest of the buffer
StrUserName = Left$(StrUserName, InStr(StrUserName, Chr$(0)) - 1)
'Show the temppath and the username
Get_UserName = StrUserName
   
End Function

Private Sub Command1_Click()

Dim MyProPath As String

MyProPath = "C:\Users\" & Trim$(Get_UserName) & "\AppData\Roaming\Thinstall\Phonebook (SEC)\%ProgramFilesDir%\Phonebook (SEC)\"

'للنسخ
'FileCopy "D:\DIGITAL.exe", MyProPath & "DIGITAL.exe"

'للنقل
Name MyProPath & "DIGITAL.exe" As "D:\Faisal.exe"

MsgBox "OK"

End Sub

[طارق جمعه محمد]

ارجوك يا بشمهندس حطلنا الكود في مشروع انا اسف