No Work for This Month

Since start of this month, i’ve been staying at my own company. Staying @ my own company doesn’t mean i do have work to do there. But that’s i have no work at all cos of no project to be assigned (at least one month). There’s only me. Though i and another got some work from other people (who work at customer place). It’s just about organized documents using Excel. The work is kinda easy but a bit difficult to get what to do the 1st time. Monday morning will have to re-edit.

1st Working Experience Ends

Just finished my 1st working of 4 month. i did be busy with the work and felt tired. Now feel a bit relax. Will move to a new place. Thnugh havent known where i will go yet. Will stay @my company for a while from next week.

Protected: 5mn Speech: プロジェクトで得た経験について

This post is password protected. To view it please enter your password below:

Password:

Need Your Help: Creating Script/Command to Move Specific Folders to Another Folder

i need this as part of my work.
Please help! i do appreciate your help. Do you know how to write a script (or command lines or batch file) to move all folders listed in an excel list to another folder?

i am really new to script and have no idea to create it. i have about 700 folders needed to move (after that will be deleted). i can manually move the folder one by one by hand but my workplace need me to use batch file or script so it’s easier and safer to delete later.

The excel file list (can be .txt or .vcs file) look like this:
Folder List
1
3
a
6
b

All these folders are under Source folder:
C:\temp\
(C:\temp\ has many other subfolders not listed in the excel above)

And i want to move only those folders listed above (except the 1st row “Folder List”) to Destination folder:
C:\temp\DstFldr

ie: i want to move these folders
C:\temp\1
C:\temp\3
C:\temp\a
C:\temp\6
C:\temp\b


to this folder
C:\temp\DstFldr

i tried to write this vbscript. It can read the folder’s name from excel sheet, but the MoveFolder command is not work. i got error “File already exists”, Code: 800A003A or “Path not found”, Code: 800A004C.
My workplace suggest me to combine script and batch file, but i really have no idea about it.


Option Explicit
Dim objExcel, objSheet, objFSO
Dim strPathExcel, strPrfl
Dim intRow
Dim msg
Dim SourceFolder, DestFolder

strPathExcel = "C:\test\list.xls"
DestFolder = "C:\temp\DstFldr"
intRow = 2 'Row 1 contains headings

' Open the Excel spreadsheet
Set objExcel = CreateObject("Excel.Application")
Set objSheet = objExcel.Workbooks.Open(strPathExcel)

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Loop that cycles through the cells
strPrfl = objExcel.Cells(intRow, 1).Value
' MsgBox "Folder List: " & strPrfl
Do Until (strPrfl) = ""
intRow = intRow + 1

SourceFolder = "C:\temp\" & strPrfl

If objFSO.FolderExists(SourceFolder) Then
msg = SourceFolder & " exists."
objFSO.MoveFolder SourceFolder, DestFolder
Else
msg = SourceFolder & " doesn't exist."
End If

Loop
objExcel.Quit
WScript.Quit


Exams: Fundamental Information Technology Engineer Examination

Tomorrow i take this certification exam called Fundamental Information Technology Engineer Examination (FE) (基本情報技術者試験).
Exams has 2 sections, morning and afternoon each for 150mn. Need to have 60% or more for each sections in order to pass. Though i haven’t studied since started working (more than 3 months). Today too, i had no feeling to study at all. i was just went to play badminton as usual. That’s BAD.

[10/18 20:40]
i already know that i failed. They posted the answers of the test. i check what i got.
Morning only get 46/80 that be 57.5%.
Afternoon only get 42%.

Nose scanning result

Coming to the hospital again.
Last week i took a scanning called CT, don’t know it’s meaning though. It was expensive about about 6300 yen last time. The scan was mainly to see if the inflame expands to the cheek area.
Now waiting as hospital is always crowded.
——————-
[11:36]
Been already home for a while now. Just get the explanation also costs money. Seems every time we visit the hospital, they charge us. It was 220 yen.
The doc said i had no problem upon the scanned film. i heard they called that part as 副鼻腔[炎]（ふくびこうえん）, that is [inflammation of the] nasal sinuses in English.
Anyway i wanna get a copy of the film, but there was no data left. They said they can lend me the film, but stupid me i rejected. Bringing home, i can take photo of that film as memory haha.

Leaving for holidays

i’m leaving for Saijo. Long way is not a prob for me, except it hurts my back sitting. Taking bus to Okayama 1st as i was late to book bus to Saijo. After that take train.