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



فهمت عليك


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الداتا ببتلغبط لما الكمبيوتر بيتفطع عنة الكهربا مرة واحدة araxis 5 120 22-11-16, 06:42 PM
آخر رد: zinom
  اريد post لي جهاز ubnt .... خبراء sharo.azad 1 59 05-11-16, 06:58 PM
آخر رد: sharo.azad
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 263 05-11-16, 12:00 PM
آخر رد: Adrees
  اريد مساعدة في التعامل مع هذا الموقع بالفيجوال بيسك soper 2 81 03-11-16, 07:08 PM
آخر رد: soper
  اريد اجعل برنامجي يقبل اي نت فيرم ورك thevirus 2 111 31-10-16, 09:24 AM
آخر رد: thevirus
Photo [VB.NET] سؤالى عن انواع البيانات اريد اعرف نوع روابط الانترنت elhon.tec 4 98 27-10-16, 11:38 AM
آخر رد: ممدوح
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 7 2,472 22-10-16, 09:53 AM
آخر رد: abbas alshuily
Sad [سؤال] اريد صنع صفحة تسجيل دخول الي برنامج عن طريق داتابيس online sql sharo.azad 3 96 21-10-16, 04:07 AM
آخر رد: أبو عمر
  مشكلة ظهرت بعد تغيير الكمبيوتر abdalla89 11 290 20-10-16, 02:01 AM
آخر رد: محمود بكرى
Star اريد حلا ارجوكم وبسرعة lugman's mum 4 133 18-10-16, 11:30 AM
آخر رد: lugman's mum

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


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