تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية انشاء مجلد في المسار التالي
#1
السلام عليكم ورخمة الله
كما جاء في العنوان انا حاطط ملفات في  المسار C:\Users\  name pc  \AppData\Roaming
name pc هو اسم  جهازي
اريد تعريف المسار لاي جهاز اخر
وشكراHuh
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#2
جرب هذا الكود
MsgBox Environ("AppData")
الرد
تم الشكر بواسطة: Amir_Alzubidy
#3
(03-01-18, 03:32 AM)eiocm كتب : جرب هذا الكود
MsgBox Environ("AppData")

لم افهم عليك اخي جيدا
وللتوضيح اكثر
ان المجلد موجود في كل الانظمة لكن يختلف الاسم فقط
كيف لي ان اجعل برنامجي يتعرف على هذا المسار
او بطريقة اخرى اريد لما يشتغل البرنامج يظع ملفات بهذا المسار
كيف لي ذالك لان هنا الاسم يتغير من جهاز لاخر
هذا كود الدت نت لانشاء مجلد في نفس المسار اريد نفس الكود الفيجول 6

كود :
 If (Not System.IO.Directory.Exists("C:\Users\" + Environment.UserName + "\AppData\Roaming" & "\bt")) Then
           System.IO.Directory.CreateDirectory("C:\Users\" + Environment.UserName + "\AppData\Roaming" & "\bt")
       End If

وشكرا Smile Smile
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#4
PHP كود :
Private Sub Command1_Click()
If 
Dir$("C:\Users\" & Environ("USERNAME") & "\AppData\Roaming" & "\bt", vbDirectory) = "" Then
   MkDir "
C:\Users\" & Environ("USERNAME") & "\AppData\Roaming" & "\bt"
   DoEvents
End If
MsgBox "
Done..."
End Sub 
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: eiocm , bidaya
#5
بعد إذن أخي أمير
Dim btPath As String
btPath = Environ("AppData") & "\bt"
If Dir$(btPath, vbDirectory) = "" Then MkDir btPath
الرد
تم الشكر بواسطة: bidaya , Amir_Alzubidy , Amir_Alzubidy
#6
الف تحية وتقدير لكما
Amir_alzubidy
eiocm
ولو تكرمتم اخواني باضافة اخرى على الكود بحيث اريد استخراج ملف من الريسورس لهذا المسار
وشكرا لكم
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة: Amir_Alzubidy
#7
للتوضيح فقط

المجلد Roaming يوجد في ويندوز Vista وما بعده
C:\Users\$USER$\AppData\Roaming


أما في XP فاسم المجلد Application Data
C:\Documents and Settings\$USER$\Application Data

والكود ("Environ("AppData يحضر المسار المطلوب لكل نظام

فالمجلد Application Data في XP يعتبر في نظر الويندوز هو Roaming في الأنظمة المتقدمة
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , bidaya
#8
اهلا بك اخي الكريم 
اتمنى ان اكون وفقت في فهم السؤال 

.rar   Resource_Sample.rar (الحجم : 2.83 ك ب / التحميلات : 44)

(03-01-18, 04:30 PM)eiocm كتب : بعد إذن أخي أمير
Dim btPath As String
btPath = Environ("AppData") & "\bt"
If Dir$(btPath, vbDirectory) = "" Then MkDir btPath

كما اتمنى الاخذ بالنصيحة التي
تفضل بها اخي الحبيب جزاه الله عنا
خير الجزاء .
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: bidaya , eiocm
#9
(03-01-18, 07:04 PM)eiocm كتب : للتوضيح فقط

المجلد Roaming يوجد في ويندوز Vista وما بعده
C:\Users\$USER$\AppData\Roaming


أما في XP فاسم المجلد Application Data
C:\Documents and Settings\$USER$\Application Data

والكود ("Environ("AppData يحضر المسار المطلوب لكل نظام

فالمجلد Application Data في XP يعتبر في نظر الويندوز هو Roaming في الأنظمة المتقدمة

شكرا لك اخي الكريم على الشرح المهم بالنسبة لنا كمبتدئين
الله يجازيك بالف خير اخي وان يجعلها لك في مسزان الحسنات
 لقد قمت بالتعديل على المثال بادراج ملف exe واردت تشغيله بعد وظعه في المسار
لكن طلعت مشكلة Smile
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة: eiocm
#10
بعد إذن أخي أمير في تعديل كود المرفق

تفضل هذا التعديل وقد تمت تجربته لملف exe ولم تظهر مشكلة
Dim Path_File As String

Private Sub Command1_Click()
Path_File = Environ("AppData") & "\bt\"
If Dir$(Path_File, vbDirectory) = "" Then
MkDir Path_File
DoEvents
End If
MsgBox "Done..."
Call Get_Data_Resource
End Sub

Public Sub Get_Data_Resource()
Dim Arry() As Byte
Dim MyFile As Long
Dim FileName As String
FileName = Path_File & "\myprog.exe"

If Dir$(FileName) <> "" Then Kill FileName

Arry = LoadResData(102, "Custom")
MyFile = FreeFile
Open (FileName) For Binary Access Write As #MyFile
Put #MyFile, , Arry
Close #MyFile

Shell FileName, vbNormalFocus
End Sub

ولو ظهرت لك مشكلة اشرحها مع وضع صورة لها
الرد
تم الشكر بواسطة: Amir_Alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب كود انشاء امتداد خاص بك ahmed250 9 195 31-05-20, 12:59 PM
آخر رد: ahmed250
  [vb6.0] برجاء الافادة عن كيفية جمع عدد ساعات MEDHAT_R_S 1 133 22-03-20, 12:14 AM
آخر رد: Amir_Alzubidy
  [سؤال] كيفية منع تكرار رقم الفاتورة او العقد tlbreem 3 221 20-03-20, 03:04 PM
آخر رد: Amir_Alzubidy
  سوال اخوانى الاحباب كيفية الجمع و الطرح فى اكتف ريبورت mhareek 1 250 14-01-20, 05:21 AM
آخر رد: Ahmed_Mansoor
  كيفية استعمال دالة sum مع التاريخ للشهر والسنة gonm64 5 361 24-12-19, 09:20 PM
آخر رد: Ahmed_Mansoor
  كيف يمكن انشاء عمود لقاعدة بيانات جاهزة اثناء التشغيل gonm64 8 411 30-11-19, 11:28 PM
آخر رد: gonm64
  [سؤال] كيفية تعديل النصوص الموجودة في تطبيق يستخدم res بالفيجوال بيسك 6 بوعيسى 0 269 24-10-19, 10:16 PM
آخر رد: بوعيسى
  كيفية ازالة الليبل الاصفر في اداة اكتف ريبورت gonm64 2 332 28-08-19, 01:38 PM
آخر رد: gonm64
  هل ممكن وضع الاستعلام التالي في التقرير princeofislam 0 261 23-08-19, 10:02 PM
آخر رد: princeofislam
  سؤال عن حفظ صورة في مجلد وحفظ مسارها في قاعدة بيانات اكسس محمد حمد محمد سليمان 5 626 15-08-19, 07:52 PM
آخر رد: محمد حمد محمد سليمان

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


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