S Douglas - Professional Profile

1. Adding / Managing Message maps in VS2005 is a joke. Why should I always have to go back and open the dialog / form to add a message map when I used to be able to do it from right clicking on the class it self?
2. Where is the darn Class Wizard? The class wizard was a great way to manage variables. Why didn’t they improve upon its design instead of just nixing it
3. It seems that the new tool for adding variables / member functions needs a lot of work, first it occasionally flakes out doest care what I choose for scope it adds it as something completely different. What’s even worse is when it does add the new item it creates a new protected, private, public label (I cant seem to recall the correct term for the scope operator so label will have to suffice) for it. Why not put the new variable / function in an existing label?
4. Could the warning messages from the complier get any vaguer?
5. The MSDN just flat out sucks! I like the UI, even though it’s slow as molasses in February.
6. Macros, ugg I can’t seem to figure out how to record a macro (a non temporary one) I have little macro I use for adding comments, it formats them just the way I like. No more I guess.
7. Release versions, sigh; don’t get me started. So in order to save end users from DLL hell we put developers through install hell. I just don’t get it, and I haven’t found anything that clues me it to the magic of creating installer packages. Well at least with distributing the MFC8.0 I can run my apps on Windows 2000 without a problem.
8. Intelisence just sucks now, its more useless than the VS6 version. I wonder if Whole Tomato will make a version of their Intelisence for VS2005 for us C++ developers.
9. Why is the code snippet library only available for C# and VB.NET?
10. Why on earth can’t I double click on the very top title bar and have it switch from maximized / restore? Come on VS team take a look at the Windows UI standards.
11. I better stop now before you get the opinion I hate VS2005, maybe I need to learn C# in order to better understand what is so great about VS2005.

1. The STL compiles without tons of warning messages.
2. The complier is a lot stricter about what it accepts and its warning are more verbose.
3. The tabbed interface.
4. Auto hiding tool bars, even though they can be a royal pain. It’s still a nice feature.

ZeePain! wrote:

This seems like one of those programs that started small, grew incrementally, building internal pressure, and finally barfed all over its source code sneakers. Or something.

Option Explicit

'***************************************************************************'
'*** Quick Back Up by Stephan 
'*** 
'*** No warranties express or implied use at your own risk
'***************************************************************************'

'********************************************************************************'
'*** if bZip is set to true then Quick Zip will try and use built in windows  ***'
'*** Zipping functionality (Windows XP and Newer Only), other wise Quick zip  ***'
'*** will try and find WinZip to add the folders to a zip archive. If neither ***'
'*** of these are available then Quick zip will copy the folders directly     ***'
'*** appending a numeric integer to end of the folder                        ***'
'*** The last folder name of the destination directory will be used as the zip ***'
'*** File name or folder name if zipping is not used                          ***'
'*** Exp, the directory to back up "C:\Test" backed up to "C:\Temp\Test will  ***'
'*** become "C:\Temp\Test1.zip                                                ***'
'********************************************************************************'


'*** The directory to back up *** 'SFD
const strDirToBack = "C:\eia"

'**** The new location ***'
const strDirNewloc = "C:\TEMP\eia"

'*** Zip the files Using Windows Zip ***'
const bZip = true

'***************************************************************************'
'*** App Variables, Do No modifiy ***'
Dim objFSO
'*** End App Vars ***'
'***************************************************************************'

Call main

'***************************************************************************'
'*** Start the work *** SFD 12/17/2005
'***************************************************************************'
sub main()
dim strNum
dim strLoc
dim objShell

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	strNum = GetFileNumber()

	strLoc = GetWinZipLoc()
	
	if(bZip) then
		if(CreateZip(strDirNewLoc  & strNum & ".zip ")) Then
			AddFilesZip strDirNewLoc  & strNum & ".zip ", strDirToBack
		end if
	elseif(Len(strLoc) > 0) then
	'*** Winzip is installed ***'
		set objShell = CreateObject("Shell.Application")
		strLoc = strLoc & " -a " & strDirNewLoc  & strNum & ".zip " & strDirToBack
		objshell.Open strLoc
		set objShell = Nothing
	else
	'*** WinZip is not installed Just copy the folder ***'
		objFSO.CopyFolder strDirToBack, strDirNewloc & strNum
	end if
	
	set objFSO = nothing

end sub

'***************************************************************************'
'*** Get File Number *** SFD 12/17/2005
'***************************************************************************'
function GetFileNumber()
dim objTextFile
dim strValue

	if(GetExists("foldernumber.dat") = false) then
		Set objTextFile = objFSO.CreateTextFile("foldernumber.dat")
		objTextFile.WriteLine("0")
		objTextFile.Close()
		Set objTextFile = NOthing
	end if

	Set objTextFile = objFSO.OpenTextFile("foldernumber.dat")
	
	strValue = objTextFile.ReadLine()

	objTextFile.Close
	
	set objTextFile = nothing

	if(len(strValue) < 1) or (IsNumeric(strValue) = False) then
		'**** Error ***'
		strValue = 0
	end if
	
	strValue = strValue + 1
	call SetFileNumber(strValue)
	
	GetFileNumber = strValue
end function

'***************************************************************************'
'*** Get File Number *** SFD 12/17/2005
'***************************************************************************'
sub SetFileNumber(strNewNumber)
dim objTextFile
	Set objTextFile = objFSO.OpenTextFile("foldernumber.dat", 2, False )
	
	objTextFile.WriteLine(strNewNumber)
	objTextFile.Close()

	set objTextFile = nothing
	
end sub

'***************************************************************************'
'*** Does the file exists *** SFD 12/17/2005
'***************************************************************************'
function GetExists(str)
		
	GetExists = objFSO.fileexists(str)
end function

'***************************************************************************'
'*** Get Location of Winzip from Registry *** SFD 12/17/2005
'***************************************************************************'
function GetWinZipLoc()
On Error Resume Next
dim strWinZip
dim objRegEdit
	strWinZip = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\winzip32.exe"
	
	Set objRegEdit = CreateObject("WScript.Shell")
	strWinZip = vbNullString
	strWinZip = objRegEdit.RegRead(strWinZip)
	
	Set ObjRegEdit = Nothing
	
	GetWinZipLoc = strWinZip

end function

'***************************************************************************'
'*** Create The Zip File *** SFD 12/17/2005
'***************************************************************************'
function CreateZip(strLoc)
On Error Resume Next
dim strHex
dim i
dim objTextFile

CreateZip = true

	'Create the basis of a zip file. 
	Set objTextFile = objFSO.CreateTextFile(strLoc, True) 

	strHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 

	strLoc = vbNullstring

	For i = 0 To UBound(strHex) 
		strLoc = strLoc & Chr(strHex(i)) 
	Next 

	objTextFile.Write strLoc 
	objTextFile.Close 

	Set objTextFile = Nothing 

if err.number <> 0 then
	CreateZip = False
end if
end function


'***************************************************************************'
'*** Add Files to Zip *** SFD 12/17/2005
'***************************************************************************'
function AddFilesZip(strLoc, strback)
On Error Resume Next 

dim objApp
dim objZip

Set objApp = CreateObject("Shell.Application") 

Set objZip = objApp.NameSpace(strback) 
	If Not objZip Is Nothing Then 
		objApp.NameSpace(strLoc).CopyHere objZip.Items 
	End If 
 
wScript.Sleep(5000) 

Set objZip = Nothing 
do while(objZip is Nothing)
	wscript.sleep 3000
loop

Set objZip = Nothing 
Set objApp = Nothing

If Err.number <> 0 then 
	msgbox err.description
	err.clear
End If 

end function

ZeePain! wrote:

This seems like one of those programs that started small, grew incrementally, building internal pressure, and finally barfed all over its source code sneakers. Or something.

ZeePain! wrote:

This seems like one of those programs that started small, grew incrementally, building internal pressure, and finally barfed all over its source code sneakers. Or something.

ZeePain! wrote:

This seems like one of those programs that started small, grew incrementally, building internal pressure, and finally barfed all over its source code sneakers. Or something.

ZeePain! wrote:

This seems like one of those programs that started small, grew incrementally, building internal pressure, and finally barfed all over its source code sneakers. Or something.