Cheerful_a_bear
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приношу свои извинения, но не могу понять, что не правильно здесь...
Set FSO = CreateObject("Scripting.FileSystemObject")
sEXT ="TXT"
sDIR ="C:\BAT\"
sNEW ="C:\3\"
Set objDIR = GetFolder(sDIR)
GoSubFolders objDIR
Sub MainSub (objDIR )
For Each efile in objDIR.Files
fNAME = efile
fEXT =FSO.GetExtensionName(efile.Path)
If LCase (fEXT)= LCase(sEXT) Then sEXIST = sNEW & efile.Name
If ((FSO.FileExists(sEXIST)) AND (efile <> sEXIST )) Then
DelFile sEXIST
End If
On Error Resume Next
MoveFile efile, sNEW
End If
Next
End Sub
Sub GoSubFolders(objDIR)
If objDIR <> "\System Volume Information" Then
MainSub objDIR
For Each eFolder in objDIR.SubFolders
GoSubFolders eFolder
Next
End if
End Sub
Function GetFolder(sDIR)
On Error Resume Next
Set GetFolder =FSO.GetFolder(sDIR)
If Err.number <> 0 Then
Wscript.Echo "Error connecting to folder: " & sFOLDER & VBlf & _
"[" &Err.Nember & "] " &Err.Description
Wscript.Quit Err.Number
End If
End Function
Sub DelFile(sFILE)
On Error Resume Next
FSO.DeleteFile sFILE.true
If Err.Number <>0 Then
Wscript.Echo "Error deleting file: " &sFILE
End If
End Sub
Sub MoveFile(sFile, sDIR)
if Right(sDIR, 1) = "\" Then sDIR = sDIR & "\"
On Error Resume Next
FSO.CopyFile sFILE.sDIR.True
If Err.Number <> 0 Then
Wscript.Echo "Error moving file: " & sFILE
End If
End Sub |
