Hur skulle de kunna se ut om man skulle vilja ha ett rename kommando i en bat fil
ex.
minapp.exe -C:\Program i en bat fil
så döper den om alla filer i katalogen med filnamn.txt till filnamn"DatumTid".txt

är inte så värst duktig på programering men har behov av funktionen och hittar ingen annan lösning.

//Torfi

Jag är osäker på om jag förstått vad du behöver, men så här skriver man för att göra det du beskriver:
<CODE>
RENAME filnamn.txt DatumTid.txt
</CODE>

Förtydliga gärna frågan om detta svar inte räcker.

/Pelle

Jag är i behov av att byta nanm på alla filer i en katalog från filnamn.txt till filnamnDatumTid.txt

försöker hitta på nätet hur man skulle kunna utföra detta med VB program men har hittat så lite info om det.

ex.
<code>
For each file in Folder

copy file.name date & filenamn

next
loop
</code>

detta är ca som jag har tänkt ming en sådan funktion.

en bra grej vore att via parametrar kunna ange vilken katalog via en bat fil ex. minapp.exe -c:\mapp med detta kommando så kommer fil c:\mapp\test.txt heta sedan c:\mapp\041213test.txt


sa jag att jag är KASS på programering.

//Torfi

Detta borde fixa biffen:

<code>
Dim Path As String
Dim Fil As String

If Right(Command, 1) = "\" Then
Path = Command
Else
Path = Command & "\"
End If

Fil = Dir(Path & "*")
Do Until Fil = ""
Name Path & Fil As Path & Format(Now, "YYMMDD") & Fil
Fil = Dir()
Loop
</code>

Lite kontroll av vad som skickas in kanske inte skadar dock.

/Johan

Kan någon kommentera koden ovan?

//Torfi

Såg att det var ett fel i anropet till Name, så jag ändrade det i förra exemplet.

<code>
'Deklarera variblerna
Dim Path As String
Dim Fil As String

'Kontroll av om argumentet (c:\mapp i ditt exempel)
'till programmet slutar på \, om inte, lägg till ett.
If Right(Command, 1) = "\" Then
Path = Command
Else
Path = Command & "\"
End If

'Sök efter första förekomsten av C:\mapp\*
Fil = Dir(Path & "*")
'Loopa tills det inte finns fler filer (Fil = "").
Do Until Fil = ""
'Byt namn från fil.txt till fil041214.txt (dagens datum)
Name Path & Fil As Path & Format(Now, "YYMMDD") & Fil
'Sök efter nästa förekomst.
Fil = Dir()
Loop
</code>

/Johan