CommonAppData في vbscript

Question

يحتوي تطبيق العميل "AppName" على ملفات التكوين الخاصة به المخزنة في CommonAppData.

• تحت نظام التشغيل Windows XP هذا هو C:\Documents and Settings\All Users\Application Data\AppName
• تحت نظام التشغيل Windows Vista هذا هو C:\ProgramData\AppName

كيف أحصل على اسم المجلد الصحيح باستخدام VBScript؟

Answer 1

Const CommonAppData = &H23&  ' the second & denotes a long integer '

Set objShell  = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(CommonAppData)

Set objFolderItem = objFolder.Self

MsgBox objFolderItem.Name & ": " & objFolderItem.Path

يحمل MSDN صفحة تسرد الأخرى ثوابت مجلد شل الخاص.

وهذه الصفحة جميلة أيضاً: تعداد المجلدات الخاصة, ، وهو جزء من دليل البرمجة النصية لنظام التشغيل Microsoft Windows 2000.