منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مسار سطح المكتب
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
zip.Save("C:\Users\UserName\Desktop "))

او

zip.Save("C:\Users\"+My.Computer.Name+"\Desktop "))
(01-03-17, 12:33 PM)Basil Abdallah كتب : [ -> ]zip.Save("C:\Users\UserName\Desktop "))

او

zip.Save("C:\Users\"+My.Computer.Name+"\Desktop "))

جربت الاثنين وطلع الارور
اتفضل أخى

PHP كود :
My.Computer.FileSystem.SpecialDirectories.Desktop "/" 
(10-11-18, 04:44 PM)ابو روضة كتب : [ -> ]اتفضل أخى

PHP كود :
My.Computer.FileSystem.SpecialDirectories.Desktop "/" 

اشكرك اخي الكريم على احياء الموضوع لانه مر عليه سنة منذ طرحته
لكنني جربت الكود ولم ينفع
لا ادري اين المشكل
اخي الاصدار هاذا في اخطا غريبه ومالها داعي بعتراف الشركة في اصدار افضل 2010 ممتاز
(10-11-18, 05:45 PM)bidaya كتب : [ -> ]
(10-11-18, 04:44 PM)ابو روضة كتب : [ -> ]اتفضل أخى

PHP كود :
My.Computer.FileSystem.SpecialDirectories.Desktop "/" 

اشكرك اخي الكريم على احياء الموضوع لانه مر عليه سنة منذ طرحته
لكنني جربت الكود ولم ينفع
لا ادري اين المشكل

ما جعلنى اراه لآنى كنت ببحث مثلك على مسار سطح المكتب واثناء البحث وجدته
فقولت ارجع لعل وعسى ان تكون مازلت محتاج له  لآنه نجح معى
(10-11-18, 08:26 PM)ابو روضة كتب : [ -> ]
(10-11-18, 05:45 PM)bidaya كتب : [ -> ]
(10-11-18, 04:44 PM)ابو روضة كتب : [ -> ]اتفضل أخى

PHP كود :
My.Computer.FileSystem.SpecialDirectories.Desktop "/" 

اشكرك اخي الكريم على احياء الموضوع لانه مر عليه سنة منذ طرحته
لكنني جربت الكود ولم ينفع
لا ادري اين المشكل

ما جعلنى اراه لآنى كنت ببحث مثلك على مسار سطح المكتب واثناء البحث وجدته
فقولت ارجع لعل وعسى ان تكون مازلت محتاج له  لآنه نجح معى
الله يرضى ويفتح ابواب الخير عليك على النية الطيبة
لكن ما مشكل او ما الذي يجعل الكود لا ينجح عندي
بما ان تم فتح النقاش فى موضوع قديم
عن مسار سطح المكتب وحتى تعم الفائدة

يمكنك الاستفادة بالطرق التالية لجلب مسار 

من خلال التالى
كود :
       Dim desktop1 As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
       MsgBox(desktop1)

ويمكن ايضاً من خلال التالى
كود :
       Dim desktop2 = My.Computer.FileSystem.SpecialDirectories.Desktop
       MsgBox(desktop2)

تحياتى للجميع
وتمنياتى لكم التوفيق
الصفحات : 1 2