The solution I want to share today was truly a workhorse for me when I worked as an Human Resources Specialist in Otis and it saved me from duplicate chores and fat finger. I'd like to call this tool or workbook, whatever you call it, a quasi-system because it covers the full life cycle of daily recruitment processes. The system is built upon the workflow and standard of the company, but I tried to design it for common usage and to make it easy to customize. I hope it can be helpful to staffing officers and recruitment operators. I'll illustrate how it works through the common workflow. The file are available at the end of this passage, and you can also download it and try it yourself.Some examples such as resumes and personal information are for illustration only and are fictitious. No real association is intended or inferred.
Dim ofile, myfile, info
Set ofile = CreateObject("Scripting.FileSystemObject")
Set myfile = ofile.GetFile(fileDir)
info = "创建时间：" & myfile.DateCreated & vbCrLf
info = info & "最后访问：" & myfile.DateLastAccessed & vbCrLf
info = info & "最后修改：" & myfile.DateLastModified
FileInfo = info