كيفية الحصول على اسم ملف قصير من اسم ملف طويل

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية175512
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
تحت ظروف معينة قد يكون من الضروري على الحصول على "اسم ملف قصير" مكافئة من ملف له "اسم ملف طويل". المثال التالي يسمح لك تحديد ملف يحتوي على "اسم ملف طويل" والعودة يكون "اسم ملف قصير" باستخدام استدعاء دالة API GetShortPathName.
معلومات أخرى
يتضمن المثال التعليمات البرمجية التالي دالة التي سيتم تحويل أسماء الملفات الطويلة إلى معادلاتها اسم قصير الخاصة بهم وتتضمن العرض توضيحي بسيطة استخدام الدالة أيضاً.

مثال خطوة بخطوة

  1. إنشاء مشروع EXE قياسي جديد في Visual Basic. يتم إنشاء Form1 بشكل افتراضي.
  2. وضع CommandButton على Form1.
  3. ضع عنصر تحكم "مربع حوار شائع" في النموذج.
  4. من القائمة إدراج ، حدد الوحدة النمطية لإضافة الوحدة نمطية للتعليمات برمجية واحد إلى المشروع.
  5. قم بإضافة التعليمات البرمجية التالية إلى الوحدة النمطية 1:
       Declare Function GetShortPathName Lib "kernel32" _      Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _      ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long   Public Function GetShortName(ByVal sLongFileName As String) As String       Dim lRetVal As Long, sShortPathName As String, iLen As Integer       'Set up buffer area for API function call return       sShortPathName = Space(255)       iLen = Len(sShortPathName)       'Call the function       lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)       'Strip away unwanted characters.       GetShortName = Left(sShortPathName, lRetVal)   End Function					
  6. قم بإضافة التعليمات البرمجية التالية إلى Form1:
       Private Sub Command1_Click()     Dim msg As String     CommonDialog1.FileName = "*.*"     CommonDialog1.ShowOpen     msg = "Long File Name: " & CommonDialog1.filename & vbCrLf     msg = msg & "Short File Name: " & GetShortName(CommonDialog1.filename)     MsgBox msg   End Sub					
  7. تشغيل المشروع عن طريق ضغط المفتاح F5. انقر فوق زر أمر لإظهار مربع الحوار فتح. التنقل في مربع الحوار فتح ، ابحث عن ملف يحتوي على "اسم ملف طويل". حدد الملف ثم انقر فوق موافق.
  8. يعرض مربع الرسالة اسم "ملف طويل" مع اسم ملف قصير.
مراجع
للحصول على مزيد من المعلومات، الرجاء مراجعة المقالة التالية في "قاعدة المعارف لـ Microsoft:
154822كيفية الحصول على اسم ملف طويل من اسم ملف قصير

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 175512 - آخر مراجعة: 12/05/2015 08:08:00 - المراجعة: 3.2

Microsoft Visual Basic Control Creation Edition, Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic 4.0 Standard Edition, Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic 4.0 32-Bit Enterprise Edition, Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0

  • kbnosurvey kbarchive kbmt kbdocfix kbhowto KB175512 KbMtar
تعليقات