VB.NET حفظ خطأ حوار الملف - تعذر العثور على دليل خاص "سطح المكتب"

Question

لدي جزء من التعليمات البرمجية مباشرة إلى حد ما يحاول ضبط الدليل المحفوظ الافتراضي لحوار حفظ .NET قياسي إلى مجلد معين. إذا لم يكن هذا المجلد موجودا، فإنه يحدده على سطح المكتب.

هذا يعمل بشكل جيد للجميع ولكن مستخدم واحد يحصل على الخطأ التالي:

Could not find special directory 'Desktop'

كيف يتم ذلك حتى ممكن؟

        'Check if folder exists
        If Not IO.Directory.Exists(strDirectory) Then
            strDirectory = FileIO.SpecialDirectories.Desktop
            If Not IO.Directory.Exists(strDirectory) Then
                strDirectory = IO.Directory.GetCurrentDirectory
            End If
        End If


    'Show save file dialogue.
    Dim folderDlg As New Windows.Forms.FolderBrowserDialog
    folderDlg.RootFolder = Environment.SpecialFolder.Desktop
    folderDlg.SelectedPath = strDirectory
    folderDlg.ShowNewFolderButton = True

Answer 1

ماذا عن:

strDirectory = _
    Environment.GetFolderPath(Environment.SpecialFolder.Desktop).ToString()

أنا أستعمل getfolderpath () للحصول على "مستنداتي" ويعمل بشكل جيد (لا أضطر إلى التفكير في الأمر).