Paketna datoteka za izhodno ime datoteke v csv datoteko

Težava
Rešitev
Opomba

Težava

Iščem napisati paketno datoteko Windows, ki bo iskala fiksno datoteko v fiksni mapi (npr. C: folderfile1.csv) in uporabila ukaz dir za izpis imena datoteke in zadnjega pisnega datuma v drugo datoteko csv (tj. C : folderfile2.csv). Izhod mora biti v dveh stolpcih in videti bo nekaj podobnega, ko odprete file2.csv:

file1.csv 10/14/2008 15:38

To se zdi dokaj preprosta serija, vendar se trudim omejiti svoj izhod samo na ta dva atributa in ju postaviti v prva dva stolpca in prvo vrstico datoteke2 .csv

Vsaka pomoč bi bila zelo cenjena. Hvala!

Rešitev

Skript, ki ga potrebujete, je naslednji:

____________________ Začetna koda __________________

 Dim Filepath Dim Filen Dim Dim OutputFile Filepath = "c: test" "Uredite to, da podate filepath Filename =" file1.csv "'Ime datoteke, ki je nazadnje urejen datum / čas potreben OutputFile =" file2.csv "' Datoteka za izhodne rezultate nastavite na objFSO = CreateObject ("Scripting.FileSystemObject") Če ne objFSO.FileExists (FilePath & OutputFile), potem nastavite objFile = objFSO.CreateTextFile (Filepath & OutputFile) Wscript.sleep (2000) 'Premor med ustvarjanjem datoteke Če je torej objFSO.FileExists (Filepath & Filename) nastavite objFile = objFSO.GetFile (Filepath & Filename) Lastmodifieddate = objFile.DateLastModified Const ForWriting = 2 Nastavite outputFile = objFSO.OpenTextFile (Filepath & "file2.csv", ForWriting) 'Open datoteka za pisanje OutputFile.Write Ime datoteke & ", " & objFile.DateLastModified "Napiši ime datoteke in datum zadnje spremembe za izhodno datoteko OutputFile.Close End Če je nastavljen objFSO = Nič

____________________Dodaj kodo __________________

Tri spremenljivke, filepath, filename in izhodno datoteko, ki so nastavljene na vrsticah 5, 6 in 7, je mogoče spremeniti, da se prikaže katera koli pot in ime datoteke, ki ga določite, in bo ustvarila datoteko na vrstici 7 na isti poti.

Če kodo shranite kot datoteko test.vbs, potem morate v paketno datoteko vnesti vrstico "Call test.vbs". Seveda, če spremenite ime datoteke vbs, boste morali spremeniti sklic nanj v paketni datoteki.