السلام عليكم
شباب انا في شي معقدني الي هو مثال انا ابغى اوصل
لي ملف في هذا المسار
C:\Users\bosqah\Documents\Visual Studio 2013
لو بكتب الكود في البرنامج نلاحض اني حددت اسم الكمبيوتر حقي فقط يعني لو واحد يتسخدمه غير هذا الكمبيوتر سيحصل خطا فانا اريد تحديد اسم الكميوتر اتوماتيك
يعني مثال انا عطيته صديقي يروح البرنامج يهدد اسم الكمبيوتر حقة ويحطه محل هذا الكمبيوتر
وشكرا
ارجو انكم فهمتووو
وعليكم السلام
تفضل اخي
هذا يجلب لك مسار مع اسم المستخدم
C:\Users\user\Documents\
PHP كود :
Dim Path as string
Path = My.Computer.FileSystem.SpecialDirectories.MyDocuments
Path = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Visual Studio 2013"
يمكنك استخدام الدالة التالية لتحديد الفولدر الريسي علي أي جهاز كمبيوتر
كود :
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
(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
يعني بختصار هذا الدلة تعوض اسم المستخدم لكل جهاز
اتمنى اتكون فهمة عليي مشكلتي تفش في الشرح