namenik
|
 Posted: Wed Feb 25, 2009 15:35 Post subject: |
 |
|
можно ли научить этот скрипт переименовывать и папки?
| Quote: | ' Copyright (c) 2006, Volniy
Option Explicit
Dim FSO, StreamFile, theFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set StreamFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not StreamFile.AtEndOfStream
Set theFile = FSO.GetFile(StreamFile.ReadLine)
Dim M,D
M=Month(Date): If M<10 Then M= "0" & M
D=Day(Date): If D<10 Then D= "0" & D
theFile.Name = Year(Date) & "_" & M & "_" & D & " " & theFile.Name
Loop
Set StreamFile = Nothing
Set FSO = Nothing
Wscript.Quit() |
p.s. Автору спасибо огромное: очень помогает в работе! |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
