Dos comando

[matsu1975]

Hallo,

deze vraag is een beetje moeilijk te plaatsen in een bepaalde catagory.

Ik weet dat het mogelijk is om vanuit de command prompt de output weg te schrijven naar een tekstfile.
mijn vraag is welke commando kan ik hier voor gebruiken?

Ik wil bv: van een harddisk die een hoop mappen bevatten met mp3's daar een list (dir) uitprinten.

Of zijn daar andre mogelijkheden voor?

alvast vriendelijk bedankt.

Matsu

 

[mooncrawler]

dir *.MP3 >> tekstfile.txt


Je kunt ook het volgende VBScriptje gebruiken - het schrijft complete mappen weg naar een CSV-file die je gemakkelijk in Excel kunt inlezen:

'//////////////////////////////////////////////////////////////////
'//
'// DIR2CSV.VBS
'// Generates a .CSV file from specified directory
'// Syntax: DIR2CSV.VBS [DIRECTORY NAME]
'// Drag & Drop supported. Output File Name: DIR2CSV.csv


'//////////////////////////////////////////////////////////////////
'//
'// MessageBox Constants

Private Const MBEX = 48
Private Const MBIN = 64
Private Const MBTI = "DIR2CSV.VBS - by Mooncrawler"

'//////////////////////////////////////////////////////////////////
'//
'// Global Variables

Private objArgs


'//////////////////////////////////////////////////////////////////
'//
'// Check Arguments

call vbsArgCheck

Private Sub vbsArgCheck()
Dim vbstrFolder
Dim isDir
Set objArgs = WScript.Arguments
isDir = False
If objArgs.Count < 1 Then
MsgBox "Directory name required", MBEX, MBTI
ElseIf objArgs.Count >= 1 Then
vbstrFolder = objArgs(0)
isDir = vbsFolderCheck( vbstrFolder )
End If

If isDir = False Then
MsgBox "Directory does not exist", MBIN, MBTI
ElseIf isDir = True Then
generateCSVFile vbstrFolder
End If
End Sub


'//////////////////////////////////////////////////////////////////
'//
'// Function: Check if folder exists

Private Function vbsFolderCheck( fldr )
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists( fldr ) Then
vbsFolderCheck = False
ElseIf fso.FolderExists( fldr ) Then
vbsFolderCheck = True
End If
End Function


'//////////////////////////////////////////////////////////////////
'//
'// Generate .csv file

Private Sub generateCSVFile( fldr )
Dim fso, fld, fis, fil, txt
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set fld = fso.GetFolder( fldr )
Set fis = fld.Files
Set txt = fso.CreateTextFile( fldr & "\" & "DIR2CSV.csv", True )
For Each fil in fis
If fil.name <> "DIR2CSV.csv" Then
txt.write fil.name & ";" & fil.size & ";" & fil.datecreated & vbCrLf
End If
Next
End Sub

 

[crash]

Mischien zijn de links in de volgende topic iets voor jou:
http://www.helpmij.nl/forum/showthread.php?s=&threadid=213155&highlight=programma+uitprinten