تقييم الموضوع :
  • 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 ك ب / التحميلات : 39)

(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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية تعديل النصوص الموجودة في تطبيق يستخدم res بالفيجوال بيسك 6 بوعيسى 0 66 24-10-19, 10:16 PM
آخر رد: بوعيسى
  كيفية ازالة الليبل الاصفر في اداة اكتف ريبورت gonm64 2 148 28-08-19, 01:38 PM
آخر رد: gonm64
  هل ممكن وضع الاستعلام التالي في التقرير princeofislam 0 130 23-08-19, 10:02 PM
آخر رد: princeofislam
  سؤال عن حفظ صورة في مجلد وحفظ مسارها في قاعدة بيانات اكسس محمد حمد محمد سليمان 5 319 15-08-19, 07:52 PM
آخر رد: محمد حمد محمد سليمان
  طلب مساعدة عن كيفية الحفاظ على ترتيب الاسماء حسب الحروف الابجدية والتسلسل gonm64 14 579 26-07-19, 11:45 AM
آخر رد: gonm64
  كيفية التنقل بين خلايا الداتا قريد بشكل عمودي مصمم هاوي 9 435 03-07-19, 10:21 AM
آخر رد: مصمم هاوي
  كيفية البحث فى جدول تمثيل النتيجه بيانين رجل الكهرباء 1 234 23-06-19, 05:47 PM
آخر رد: wared
  طريقة كتابة المسار داخل قيمة في الريجيستري الرجل الرمادي 3 386 10-02-19, 08:05 PM
آخر رد: Amir_Alzubidy
  كيفية عمل ازرار مأخوذة او مربوطة مع قاعدة البيانات hannileo 6 628 14-01-19, 10:07 AM
آخر رد: hannileo
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 593 25-12-18, 12:34 PM
آخر رد: aboezzat84

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


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