تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اريد ان يكتب اسم الكمبيوتر دون تحديد
#1
السلام عليكم



شباب انا في شي معقدني الي هو مثال انا ابغى اوصل


لي ملف في هذا المسار

C:\Users\bosqah\Documents\Visual Studio 2013


لو بكتب الكود في البرنامج نلاحض اني حددت اسم الكمبيوتر حقي فقط يعني لو واحد يتسخدمه غير هذا الكمبيوتر سيحصل خطا فانا اريد تحديد اسم الكميوتر اتوماتيك


يعني مثال انا عطيته صديقي يروح البرنامج يهدد اسم الكمبيوتر حقة ويحطه محل هذا الكمبيوتر


وشكرا


ارجو انكم فهمتووو
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام

تفضل اخي

هذا يجلب لك مسار مع اسم المستخدم
C:\Users\user\Documents\
PHP كود :
Dim Path as string 

Path 
My.Computer.FileSystem.SpecialDirectories.MyDocuments 



Path 
My.Computer.FileSystem.SpecialDirectories.MyDocuments  "\Visual Studio 2013" 
الرد }}}
تم الشكر بواسطة: kslawy
#3
يمكنك استخدام الدالة التالية لتحديد الفولدر الريسي علي أي جهاز كمبيوتر

كود :
Public Shared Function GetDefaultDirectory() As String
        Dim txt As String = ""
        Dim paths As String() = Environment.GetFolderPath(Environment.SpecialFolder.Personal).Split(New Char() {"\"c})
        For i As Integer = 0 To paths.Length - 2
            txt = txt & paths(i) & "\"
        Next
        Dim defaultDirectory As String = Nothing
        Try
            If Not Directory.Exists(txt) Then
                Directory.CreateDirectory(txt)
            End If
            defaultDirectory = txt
        Catch ex As Exception
            If TypeOf ex Is IOException AndAlso TypeOf ex Is UnauthorizedAccessException AndAlso TypeOf ex Is ArgumentException Then
                defaultDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            End If
        End Try
        Return defaultDirectory
    End Function

ثم يمكن ان تستخدم الكود ب الشكل التالي لتحدي اي فولدر اخر مثل Pictures او Documents أو Video أو الفيجوال استوديو

كود :
Public Shared Function GetVisualStudio2013Directory() As String
        Dim txt As String = GetDefaultDirectory()
        txt += "Visual Studio 2013"
        Return txt
    End Function

    Public Shared Function GetDocumentsDirectory() As String
        Dim txt As String = GetDefaultDirectory()
        txt += "Documents"
        Return txt
    End Function

    Public Shared Function GetVideoDirectory() As String
        Dim txt As String = GetDefaultDirectory()
        txt += "Videos"
        Return txt
    End Function

    Public Shared Function GetMusicDirectory() As String
        Dim txt As String = GetDefaultDirectory()
        txt += "Music"
        Return txt
    End Function

    Public Shared Function GetPicturesDirectory() As String
        Dim txt As String = GetDefaultDirectory()
        txt += "Pictures"
        Return txt
    End Function
الرد }}}
تم الشكر بواسطة: Omar Mekkawy
#4
(02-06-14, 03:36 PM)salfig كتب : وعليكم السلام

تفضل اخي

هذا يجلب لك مسار مع اسم المستخدم
C:\Users\user\Documents\
PHP كود :
Dim Path as string 

Path 
My.Computer.FileSystem.SpecialDirectories.MyDocuments 



Path 
My.Computer.FileSystem.SpecialDirectories.MyDocuments  "\Visual Studio 2013" 

ممكن تشرح لي الكود
الرد }}}
تم الشكر بواسطة:
#5
(02-06-14, 03:57 PM)hassan كتب :
(02-06-14, 03:36 PM)salfig كتب : وعليكم السلام

تفضل اخي

هذا يجلب لك مسار مع اسم المستخدم
C:\Users\user\Documents\
PHP كود :
Dim Path as string 

Path 
My.Computer.FileSystem.SpecialDirectories.MyDocuments 



Path 
My.Computer.FileSystem.SpecialDirectories.MyDocuments  "\Visual Studio 2013" 

ممكن تشرح لي الكود


اول شيى قمت بتعريف منغير من نوع string لوضع فية المسار لسهولت تعمل معه
مثل ما تلحظ في الصورة هنك عدات من الدالة مثل Desktop وغيره
الدالة هذا ترجة لك من نوع string فوضعته في متغير من نوع string
لشرح لك اكثر
انا عندي جهاز اسم المستخدم فية على سبيل المثال salfig
يعني يصير المسار الى في جهازي
مثل هذا
كود :
C:\Users\salfig\Documents
و عندي جهاز ثاني اسم المستخدم Test
فيصير المسار
كود :
C:\Users\Test\Documents
يعني بختصار هذا الدلة تعوض اسم المستخدم لكل جهاز
اتمنى اتكون فهمة عليي مشكلتي تفش في الشرح
الرد }}}
تم الشكر بواسطة: سعود الشامان , سعود الشامان
#6
(02-06-14, 04:38 PM)salfig كتب :
(02-06-14, 03:57 PM)hassan كتب :
(02-06-14, 03:36 PM)salfig كتب : وعليكم السلام

تفضل اخي

هذا يجلب لك مسار مع اسم المستخدم
C:\Users\user\Documents\
PHP كود :
Dim Path as string 

Path 
My.Computer.FileSystem.SpecialDirectories.MyDocuments 



Path 
My.Computer.FileSystem.SpecialDirectories.MyDocuments  "\Visual Studio 2013" 

ممكن تشرح لي الكود


اول شيى قمت بتعريف منغير من نوع string لوضع فية المسار لسهولت تعمل معه
مثل ما تلحظ في الصورة هنك عدات من الدالة مثل Desktop وغيره
الدالة هذا ترجة لك من نوع string فوضعته في متغير من نوع string
لشرح لك اكثر
انا عندي جهاز اسم المستخدم فية على سبيل المثال salfig
يعني يصير المسار الى في جهازي
مثل هذا
كود :
C:\Users\salfig\Documents
و عندي جهاز ثاني اسم المستخدم Test
فيصير المسار
كود :
C:\Users\Test\Documents
يعني بختصار هذا الدلة تعوض اسم المستخدم لكل جهاز
اتمنى اتكون فهمة عليي مشكلتي تفش في الشرح



فهمت عليك


الله يعطيك العافيه


وشكرا
الرد }}}
تم الشكر بواسطة: سعود الشامان


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 431 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit
  تحديد موقع ملف user.config واعدة توجيهه لموقع آخر Mohammed Nafa 3 439 07-11-23, 10:12 PM
آخر رد: Mohammed Nafa
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 348 01-09-23, 07:13 AM
آخر رد: Asem2
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 0 280 01-09-23, 05:56 AM
آخر رد: Ameenh
  كيف الحصول على قيمة الخلية بعد تحديد الصف في datagridview؟ hazim1 2 558 06-08-23, 01:12 AM
آخر رد: hazim1

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


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