Dosya adını csv dosyasına vermek için toplu iş dosyası

Konu
Çözüm
Not

Konu

Sabit bir klasörde (örneğin c: folderfile1.csv) sabit bir dosya arayacak bir windows toplu iş dosyası yazmak ve dir komutunu kullanarak dosya adını ve son yazılan tarihi ikinci bir csv dosyasına (c. : folderfile2.csv). Çıktı iki sütunda olmalı ve file2.csv dosyasını açtığınızda şöyle görünecektir:

file1.csv 10/14/2008 15:38

Bu oldukça basit bir işlem gibi gözüküyor, ancak çıktılarımı sadece bu iki öznitelikle sınırlamak ve bunları ilk iki sütuna ve ilk dosya2.csv satırına yerleştirmek için mücadele ediyorum.

Herhangi bir yardım çok takdir edilecektir. Teşekkürler!!!

Çözüm

İhtiyacınız olan komut dosyası aşağıdaki gibidir:

____________________ Giriş Kodu__________________

 Dim Filepath Dim Dosya Adı Dim OutputFile Filepath = "c: test \" 'Dosyayı belirtmek için bunu düzenleyin Filename = "file1.csv"' Son düzenleme tarihi / saati gereken dosyanın adı OutputFile = "file2.csv" 'Dosyaya Set objFSO = CreateObject ("Scripting.FileSystemObject") çıktı sonuçları objFSO.FileExists (FilePath & OutputFile) değilse, Set objFile = objFSO.CreateTextFile (Filepath & OutputFile) Wscript.sleep (2000) 'Pause oluştururken Sona Erdir Eğer objFSO.FileExists (Filepath & Filename) ise Set Set objFile = objFSO.GetFile (Filepath & Filename) Lastmodifieddate = objFile.DateLastModified Const ForWriting = 2 Set çıktıFile = objFSO.OpenTextFile (Filepath & "için" dosyaya koyma = =. OutputFile.Write Dosya Adı & ", " & objFile.DateLastModified yazacak dosya "Çıktı dosyasına dosya adı ve en son değiştirilen tarih yazınız OutputFile.Close End Eğer bir nesne ayarlanmışsa

____________________End Code__________________

5., 6. ve 7. satırlara ayarlanan üç değişken, dosya adı, dosya adı ve çıktı dosyası, belirttiğiniz ve aynı satırdaki dosyayı 7. satırda oluşturacak herhangi bir yolu ve dosya adını almak için değiştirilebilir.

Bu kodu test.vbs dosyası olarak kaydederseniz, toplu iş dosyanızda "Call test.vbs" satırını girmeniz gerekir. Açıkçası, vbs dosyasının adını değiştirirseniz, toplu iş dosyanızdaki referansı değiştirmeniz gerekecektir.