تقييم الموضوع :
  • 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
يعني بختصار هذا الدلة تعوض اسم المستخدم لكل جهاز
اتمنى اتكون فهمة عليي مشكلتي تفش في الشرح



فهمت عليك


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود منع المستخدم من الكتابة داخل الكمبو بوكس alfaiz678 2 49 13-07-18, 04:12 PM
آخر رد: alfaiz678
  [سؤال] اريد الطريقه الصحيحه لعمل FilterRow للداتا جريد ثم حفظ البيانات من الداتا جريد لقاعده dametucorazon 6 119 30-06-18, 12:45 AM
آخر رد: dametucorazon
  [VB.NET] اريد مساعدتي في تصحيح او تعديل الكود 0theghost0 8 174 29-06-18, 07:40 PM
آخر رد: elgokr
  سؤال اريد طريقه تفعيل الحمايه لبرنامج قمت بانشاءه وتحديد السيريال أبو علي1 3 91 24-06-18, 08:12 PM
آخر رد: sendbad100
  [VB.NET] اريد فتح موقع معين اكتر من مرة لحسابات مختلفة او تبديل الكوكاييز باستخدام selenium d الماجيك مسعد 5 124 18-06-18, 04:37 AM
آخر رد: الماجيك مسعد
  [VB.NET] اريد طريقه لمنح المستخدم صلاحيه انشاء مستخدم علي البرنامج بنفسه مرة واحدة فقط dametucorazon 3 92 17-06-18, 04:29 AM
آخر رد: elgokr
Exclamation [سؤال] اريد كود او الطريقة التي تشغل البرنامج اوتوماتيك عند تشغيل الجهاز YousefOkasha 6 213 16-06-18, 04:44 PM
آخر رد: elgokr
  [VB.NET] اريد المساعد ميدو 4 641 13-06-18, 05:57 AM
آخر رد: ملهمـ
  اريد بعد ان اقوم بطباعة البيانات في PDF بعد ادخالها وحفظها وبتنسيق معين farah112233 16 389 10-06-18, 07:51 AM
آخر رد: عبدالله الدوسري
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 9 296 06-06-18, 09:23 PM
آخر رد: issamsaidd

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


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