ملف دفعي لإخراج اسم الملف إلى ملف CSV

القضية
حل
ملحوظة

القضية

أتطلع إلى كتابة ملف دفعي لـ Windows يبحث عن ملف ثابت في مجلد ثابت (على سبيل المثال c: folderfile1.csv) واستخدم الأمر dir لإخراج اسم الملف وتاريخ آخر كتاب مكتوب إلى ملف csv ثانٍ (على سبيل المثال c : folderfile2.csv). يجب أن يكون الإخراج في عمودين وسيظهر بشكل كهذا عند فتح file2.csv:

file1.csv 10/14/2008 15:38

يبدو هذا كدفعة مباشرة إلى حد ما ، لكنني أواجه صعوبة في قصر مخرجاتي على هاتين السمتين فقط ووضعهما في أول عمودين والصف الأول من file2.csv

أي مساعدة سيكون موضع تقدير كبير. شكر!!!

حل

البرنامج النصي الذي تحتاجه هو كما يلي:

____________________ رمز البداية __________________

 Dim Filepath Dim Filename Dim OutputFile Filepath = "c: test \" 'تحرير هذا لتحديد filepath Filename = "file1.csv"' اسم الملف الذي تم آخر تاريخ / وقت تم فيه التعديل مطلوب OutputFile = "file2.csv" 'ملف ل إخراج النتائج إلى تعيين objFSO = CreateObject ("Scripting.FileSystemObject") إذا لم يكن objFSO.FileExists (FilePath & OutputFile) ، ثم تعيين objFile = objFSO.CreateTextFile (Filepath & OutputFile) Wscript.sleep (2000) 'Pause Pause أثناء إذا كان objFSO.FileExists (Filepath & Filename) ، فقم بتعيين objFile = objFSO.GetFile (Filepath & Filename) Lastmodifieddate = objFile.DateLastModified Const ForWriting = 2 Set outputFile = objFSO.OpenTextFile (Filepath & "file2.vv" ملف للكتابة OutputFile.Write Filename & "،" & objFile.DateLastModified 'اكتب اسم الملف وتاريخ آخر تعديل لإخراج الملف OutputFile.Close End If If set objFSO = Nothing

____________________ الكود الأخير

يمكن تعديل المتغيرات الثلاثة ، filepath ، اسم الملف وملف الإخراج الذي تم إعداده على الأسطر 5 و 6 و 7 لالتقاط أي مسار واسم الملف الذي تحدده وسيتم إنشاء الملف على السطر 7 على نفس المسار.

إذا قمت بحفظ هذا الرمز كملف test.vbs ، فعندئذٍ في ملف الدُفعات ، ستحتاج إلى إدخال السطر "Call test.vbs". من الواضح إذا قمت بتغيير اسم ملف vbs ، فستحتاج إلى تغيير المرجع إليه في ملف الدُفعات الخاص بك.