Erätiedosto, joka lähettää tiedostonimen csv-tiedostoon

Ongelma
Ratkaisu
Huomautus

Ongelma

Etsin kirjoittaa Windows-erätiedoston, joka etsii kiinteän tiedoston kiinteästä kansiosta (ts. C: folderfile1.csv) ja käytä dir-komentoa tiedostonimen ja viimeisen kirjoitetun päivämäärän tulostamiseen toiseen csv-tiedostoon (ts. : folderfile2.csv). Tuloksen on oltava kahdessa sarakkeessa, ja se näyttää tältä, kun avaat tiedoston2.csv:

file1.csv 10/14/2008 15:38

Tämä tuntuu melko yksinkertaiselta erältä, mutta yritän rajoittaa tuotokseni vain näihin kahteen määritteeseen ja sijoittaa ne kahteen ensimmäiseen sarakkeeseen ja tiedostoa2.csv ensimmäiseen riviin

Mikä tahansa apu olisi erittäin tervetullutta. Kiitos!!!

Ratkaisu

Tarvittava skripti on seuraava:

____________________Begin Code__________________

 Dim Filepath Dim Tiedostonimi Dim OutputFile Filepath = "c: testi" "Muokkaa tätä, jos haluat määrittää filepath Filename =" file1.csv "'Tiedoston nimi, jota viimeksi muokattu päivämäärä / aika tarvitaan OutputFile =" file2.csv "' Tiedosto tulosten tulokset aseta objFSO = CreateObject ("Scripting.FileSystemObject") Jos ei objFSO.FileExists (FilePath & OutputFile), aseta objFile = objFSO.CreateTextFile (Filepath & OutputFile) Wscript.sleep (2000) 'Tauko tiedoston luomisen aikana Jos Jos objFSO.FileExists (Filepath & Fileename) sitten aseta objFile = objFSO.GetFile (Filepath & Filename) Lastmodifieddate = objFile.DateLastModified Const ForWriting = 2 Set outputFile = objFSO.OpenTextFile (Filepath & "file2.csv", ForWriting) 'Avaa tiedosto tulostettavaksi OutputFile.Write-tiedostonimi & ", " & objFile.DateLastModified 'Kirjoita tiedostonimi ja viimeksi muokattu päivämäärä ulostulotiedostoon OutputFile.Close End Jos set objFSO = Nothing

____________________End Code__________________

Kolme muuttujaa, filepath-, filenath- ja lähdetiedostoja, jotka on määritetty riveille 5, 6 ja 7, voidaan muokata poimimalla kaikki määrittämäsi polku ja tiedostonimi ja luodaan tiedosto rivillä 7 samalla polulla.

Jos tallennat koodin test.vbs-tiedostona, sinun on annettava erätiedostossa rivi "Call test.vbs". On selvää, että jos muutat vbs-tiedoston nimeä, sinun on muutettava viittaus siihen tiedostoon.