تحويل اسم ومسار الملف الى صيغة 8.3

[jjafferr]

السلام عليكم 🙂

 

في زمن Dos والوندوز قبل 95 ، جميع البرامج كانت ملتزمة بأن طول اسم البرنامج/الملف لا يتجاوز 8 احرف ، وصيغة البرنامج/الملف هي 3 احرف ، لذا فهي معروفة 8.3 او الاسم القصير Short FileName 🙂

 

في هذه الايام ، 99% من البرامج تتعامل مع Unicode (الحروف الغير انجليزية) ، ولكن لا تزال هناك بعض البرامج اللي لا تتعامل مع Unicode ، مما يجعلنا لا نستطيع استعمالها اذا كان اسم الملف او المجلد مكتوب باللغة العربية ، هذا المرفق مثال على ذلك !!

 

حتى نستطيع التعامل مع مسميات الملفات و المجلدات باللغة العربية ، مع البرامج التي لا تدعم اللغة العربية ، يمكننا ان نغيّر صيغة الملف/المسار الى صيغة 8.3 بإستعمال هذه الدالة ، وسيعمل البرنامج :

Function get8_3FullFileName(F_or_F As Integer, ByVal sFullFileName As String) As String

'
' Convert the normal path to the old DOS 8.3 path
' this solves the problem of spaces in the path
' and reading Unicode names
'
' F_or_F : File or Folder
' 1= File
' 2= Folder
'

    Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If F_or_F = 1 Then
        get8_3FullFileName = FSO.GetFile(sFullFileName).ShortPath
    Else
        get8_3FullFileName = FSO.GetFolder(sFullFileName).ShortPath
    End If
    
    Debug.Print "Original File Path: " & sFullFileName
    Debug.Print "8.3 File Path: " & get8_3FullFileName
    
End Function

.

نناديها بإرسال المسار اليها ، هكذا :

a_FILE = get8_3FullFileName(1, "D:\1Jaffer_Work\1Officena.net\Combine_PDF_Files_2\ملف1" & "\" & "a.pdf")
او
a_FILE = get8_3FullFileName(1, Application.CurrentProject.Path & "\" & "ملف1" & "\" & "a.pdf")


النتيجة
D:\1JAFFE~1\1OFFIC~1.NET\COMBIN~1\10DFB~1\a.pdf

او

اصل المسار
D:\1Jaffer_Work\Samples\sound files\sound files\عمل رائع.WAV

والنتيجة
D:\1JAFFE~1\Samples\SOUNDF~1\SOUNDF~1\FE9C~1.WAV

.

جعفر

[Moosak]

ممتاز جدا عمي جعفر .. 🙂 

هذا يحل مشكلة ملفات الباتش وال Dos  أيضا التي لا تتعامل مع اللغة العربية 🌹

كنت أعاني شخصيا من هذي المشكلة وما عارف كيف أحلها .. ولما خلصت ووجدت البديل جاء الفرج 😅

تم تعديل يناير 15, 2023 بواسطه Moosak

[jjafferr]

10 دقائق مضت, Moosak said:

ولما خلصت ووجدت البديل جاء الفرج 😅

في المرة القادمة ، بخلي البخور شغال على طول ، علشان يصير تراود افكار بيننا (طبعا انت عرفت المقصود 😅)

 

عندك خبر ان الكثير من برامج الوندوز لاتزال تعمل بأوامر DOS ، والكثير من البرامج ،

لهذا السبب ، لما ابحث عن برنامج خارجي علشان يعمل لي شيء مكمل للاكسس ، ابحث عن البرنامج اللي يمكن التحكم به عن طريق اوامر DOS ، مثل https://www.irfanview.net/ 🙂

 

جعفر

[Moosak]

16 دقائق مضت, jjafferr said:

في المرة القادمة ، بخلي البخور شغال على طول ، علشان يصير تراود افكار بيننا (طبعا انت عرفت المقصود 😅)

ما اعطيتني رقم الباسوورد مال الجماعة مالك علشان أشبك معاك على طول 😁

جالس أطور مشروع تحديث ال FE  التلقائي ونجحت العملية ولله الحمد .. بحاول أنزله قريبا إن شاء الله .. 😊

تم تعديل يناير 15, 2023 بواسطه Moosak