+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [كود] طلب كود (/showthread.php?tid=10834)
طلب كود - فـ ـيـ ـصـ ـل - 01-12-14
السلام عليكم
اخباركم حبايبي عساكم بخير
الكود الاول
كود ينسخ ملف من مسار معين الى المكان الى فيه البرنامج
ملاحظه اسم المستخدم 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 اريد الكود يعمل على اي جهاز واي اسم مستخدم
وشكرا
RE: طلب كود - Ahmed_Mansoor - 02-12-14
بسم الله الرحمن الرحيم
إستخدم هذا الكود :
كود :
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 SubRE: طلب كود - طارق جمعه محمد - 03-09-19
ارجوك يا بشمهندس حطلنا الكود في مشروع انا اسف