jjafferr قام بنشر يناير 15, 2023 مشاركة قام بنشر يناير 15, 2023 السلام عليكم 🙂 في زمن 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 . جعفر 4 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يناير 15, 2023 مشاركة قام بنشر يناير 15, 2023 (معدل) ممتاز جدا عمي جعفر .. 🙂 هذا يحل مشكلة ملفات الباتش وال Dos أيضا التي لا تتعامل مع اللغة العربية 🌹 كنت أعاني شخصيا من هذي المشكلة وما عارف كيف أحلها .. ولما خلصت ووجدت البديل جاء الفرج 😅 تم تعديل يناير 15, 2023 بواسطه Moosak رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 15, 2023 الكاتب مشاركة قام بنشر يناير 15, 2023 10 دقائق مضت, Moosak said: ولما خلصت ووجدت البديل جاء الفرج 😅 في المرة القادمة ، بخلي البخور شغال على طول ، علشان يصير تراود افكار بيننا (طبعا انت عرفت المقصود 😅) عندك خبر ان الكثير من برامج الوندوز لاتزال تعمل بأوامر DOS ، والكثير من البرامج ، لهذا السبب ، لما ابحث عن برنامج خارجي علشان يعمل لي شيء مكمل للاكسس ، ابحث عن البرنامج اللي يمكن التحكم به عن طريق اوامر DOS ، مثل https://www.irfanview.net/ 🙂 جعفر 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يناير 15, 2023 مشاركة قام بنشر يناير 15, 2023 (معدل) 16 دقائق مضت, jjafferr said: في المرة القادمة ، بخلي البخور شغال على طول ، علشان يصير تراود افكار بيننا (طبعا انت عرفت المقصود 😅) ما اعطيتني رقم الباسوورد مال الجماعة مالك علشان أشبك معاك على طول 😁 جالس أطور مشروع تحديث ال FE التلقائي ونجحت العملية ولله الحمد .. بحاول أنزله قريبا إن شاء الله .. 😊 تم تعديل يناير 15, 2023 بواسطه Moosak 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.