Code
- Set fso = CreateObject("Scripting.FileSystemObject")
- sFolder = "C:\test\movefile"
- Set folder = fso.GetFolder(sFolder)
- Set files = folder.Files
- For each fileObj In files
- strFileName = fileObj.Name
- strXXX = Mid(strFileName,1,(InStr(strFileName, "_main_")-1))
- strRRR = Mid(Mid(strFileName,1,(InStrRev(strFileName,"_"))-1),(InStrRev(Mid(strFileName,1,(InStrRev(strFileName,"_"))-1),"_"))+1,(InStrRev(strFileName,"_"))-1)
- strNewName = strXXX & "~" & strRRR & ".pdf"
- strSSS = Mid(strFileName,(InStrRev(strFileName,"_"))+1,(InStrRev(strFileName,"."))-(InStrRev(strFileName,"_"))-1)
- If Not fso.FolderExists(sFolder & "\" & strSSS) Then
- fso.CreateFolder(sFolder & "\" & strSSS)
- End If
- fileObj.Copy(sFolder & "\" & strSSS & "\" & strNewName)
- fileObj.Delete
- Next
Vbs hejs