C++ thread

#include "stdafx.h"
#include "windows.h"
#include "stdio.h"
#include "process.h"

#ifndef _MT
#error("c/c++==code generation==use runtime library: select multithreaded")
#endif

unsigned Counter;
unsigned __stdcall ExThreadProc( void* pArguments )
{
printf( "In ExThreadProc...\n" );

while ( Counter < 1000000 )
Counter++;
Sleep(100);
_endthreadex( 0 );
return 0;
}

void __cdecl BasicThreadProc( void* pArguments )
{
printf( "In BasicThreadProc...\n" );
int a = (int)pArguments;
printf("%d\n",a);
}

int main()
{
HANDLE hThread;
unsigned threadID;
printf("Counter :%d\n",Counter);
printf( "Creating second thread...\n" );
_beginthread(BasicThreadProc,0,(void*)55);
// Create the second thread.
hThread = (HANDLE)_beginthreadex( NULL, 0, &ExThreadProc, NULL, 0, &threadID );
WaitForSingleObject( hThread, INFINITE );
printf( "Counter should be 1000000; it is %d\n", Counter );
CloseHandle( hThread );
return 0;
}

add extension to files under a folder

''''''''''''''''Append file extension name
''''''''''''''''Run in command line
''''''''''''''''cscript change.vbs D:\Images
''''''''''''''''Onega 20050525



'***************create array containing postfix of file names.
'***************Those files are not renamed
Dim dict
Set dict = CreateObject("Scripting.Dictionary")
dict.Add dict.count , ".txt"
dict.Add dict.count , ".log"
dict.Add dict.count , ".vbs"
dict.Add dict.count , ".bat"
dict.Add dict.count , ".DCM"
On Error Resume Next
Dim fso
set fso = CreateObject("Scripting.FileSystemObject")
Dim file_changed
Dim failed_count
Dim total_file_count
total_file_count = 0
file_changed = 0
failed_count = 0
Dim ArgObj
Set ArgObj = WScript.Arguments
If ArgObj.Count>0 Then
object_folder = ArgObj(0)
'Else
' object_folder = GetScriptCurrentPathName()
End If

Set IFileSystem3 = CreateObject("Scripting.FileSystemObject")
set IFolder = IFileSystem3.GetFolder(object_folder)
clear_folder IFolder

If ArgObj.Count>0 Then
WScript.Echo "Total file count:" & CStr(total_file_count)
WScript.Echo CStr(file_changed) & " files are renamed"
WScript.Echo CStr(failed_count) & " files failed to be renamed"
WScript.Echo "Job done!"
Else
WScript.Echo "Usage: cscript change.vbs D:\Images"
End If
set fso = nothing
''''*******************End of Main Body


Function clear_folder( folder )
set IFileCollection = folder.Files
For each file in IFileCollection
total_file_count = total_file_count + 1
If not is_temp_file( file.Path ) Then
newfilename = file.Path & ".dcm"
wscript.echo newfilename
fso.MoveFile file.Path, newfilename
If Err <> 0 Then
'failed to rename
failed_count = failed_count + 1
else
file_changed = file_changed + 1
End If
End If
Next

For each sub_folder in folder.SubFolders
clear_folder sub_folder
Next
End Function



Function end_with( src_string, key)
end_with = false
If Len(key) <1 Then
end_with = false
Exit Function
End if
If Len(src_string) < Len(key) Then
end_with = false
Else
Dim temp_str
temp_str = right(src_string, Len(key) )
'vbTextCompare = 1
If StrComp( temp_str,key,vbTextCompare) = 0 Then
end_with = true
Else
end_with = false
End if
End if

End function

Function is_temp_file(path)
is_temp_file = false
For each postfix in dict.items
If end_with(path, postfix) Then
is_temp_file = true
Exit for
End if
next
End function


'********************* Get Dir containing current script file
Private Function GetScriptCurrentPathName
Dim fso1
set fso1 = CreateObject("Scripting.FileSystemObject")
GetScriptCurrentPathName = fso1.GetParentFolderName(WScript.ScriptFullName)
set fso1 = nothing
End Function