If WScript.Arguments.Count > 0 Then
Dim FSO, FileName, oFile, PathNew
Set FSO = CreateObject("Scripting.FileSystemObject")
FileName = WScript.Arguments(0)
Set oFile = FSO.GetFile(FileName)
PathNew = oFile.ParentFolder & "\" & FSO.GetBaseName(FileName) & "\Old\"
If Not FSO.FolderExists(PathNew) Then
FSO.CreateFolder(PathNew)
End If
oFile.Move(PathNew)
Set oFile = Nothing
Set FSO = Nothing
End If
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
