Module Crashing Excel but Don't know why

[hellfire45]

Hi guys so I have a module that is crashing excel every time and I don't know why. I will paste it below.
This path does not have two string variables declared; destinationpath and sourcepath

When I try to add the declarations (as seen below), then press f8 to step through the module, the workbook crashes.

The module is at it size limit and I can't see why.
I'm at a loss. Any ideas? Thanks!

dim destinationpath as string
dim sourcepath as string

Option Explicit

Sub build_template()
Dim fso As Object
Dim strTargetFile As String
Dim strFolder As String: strFolder = "I:\ASM\All\CRT\Reporting\In Consolidation Process\Reports\"
Dim strFileSpec As String: strFileSpec = strFolder & "*.*"
Dim strFileName As String
Dim destinationpath As String


Set fso = CreateObject("Scripting.FileSystemObject")


'sets the file path for key files
folderpath = "I:\ASM\All\CRT\Reporting\In Consolidation Process\Reports\"


'Builds folder directory with current date in report archive folder location seen below
If Dir("I:\ASM\All\CRT\Reporting\In Consolidation Process\Master Automation\Dated Report Archive\" & Format(Date, "yyyy-mm-dd"), vbDirectory) = "" Then
            MkDir ("I:\ASM\All\CRT\Reporting\In Consolidation Process\Master Automation\Dated Report Archive\" & Format(Date, "yyyy-mm-dd") & "\")
End If
destinationpath = "I:\ASM\All\CRT\Reporting\In Consolidation Process\Master Automation\Dated Report Archive\" & Format(Date, "yyyy-mm-dd") & "\"


SourcePath = "C:\Users\x\Desktop\y\Archive of XML\" & Format(Date, "yyyy-mm-dd") & "\"
strFileName = Dir(strFileSpec)




'big loop that processes the data from bout a dozen files and compile appends this data into "the hopper".
Do While strFileName <> ""
strExt = CreateObject("Scripting.FileSystemObject").GetExtensionName(strFileName)








End Sub

 

[RoryA]

You already have destinationpath declared. Other than that, I can't see a problem. That on its own would be nowhere near the limit for a module size.

 

[hellfire45]

You already have destinationpath declared. Other than that, I can't see a problem. That on its own would be nowhere near the limit for a module size.

Sorry there was a type in there. It is NOT at its size limit as the module is nowhere near 64kb.

I just can't see why its crashing. Makes little sense to me.

 

[RoryA]

I do note that you haven't declared folderpath either, and your code won't compile as it is, since it is incomplete.

 

[hellfire45]

I do note that you haven't declared folderpath either, and your code won't compile as it is, since it is incomplete.

Yes so the reason for that is because the minute i declare it, excel crashes. That's pretty much the whole issue in a nutshell.

 

[RoryA]

What I mean is that you should get a compile error as soon as you press f8 because that code can't run at all as it is written, even if you removed the Option Explicit statement. For instance, you have a Do While but no Loop line.

 

[hellfire45]

What I mean is that you should get a compile error as soon as you press f8 because that code can't run at all as it is written, even if you removed the Option Explicit statement. For instance, you have a Do While but no Loop line.

I will post the entire script below. Sadly even with the loop commented out, excel crashes upon pressing f8 after i declare the sourcepath and folderpath as string

I don't understand why this is happening but its making me sad. lol.

Option Explicit

Sub build_template()
Dim fso As Object
Dim strTargetFile As String
Dim strFolder As String: strFolder = "I:\ASM\All\CRT\Reporting\In Consolidation Process\Reports\"
Dim strFileSpec As String: strFileSpec = strFolder & "*.*"
Dim strFileName As String
Dim destinationpath As String
Dim sourcepath As String
Dim folderpath As String






Set fso = CreateObject("Scripting.FileSystemObject")


'sets the file path for key files
folderpath = "I:\ASM\All\CRT\Reporting\In Consolidation Process\Reports\"


'Builds folder directory with current date in report archive folder location seen below
If Dir("I:\ASM\All\CRT\Reporting\In Consolidation Process\Master Automation\Dated Report Archive\" & Format(Date, "yyyy-mm-dd"), vbDirectory) = "" Then
            MkDir ("I:\ASM\All\CRT\Reporting\In Consolidation Process\Master Automation\Dated Report Archive\" & Format(Date, "yyyy-mm-dd") & "\")
End If
destinationpath = "I:\ASM\All\CRT\Reporting\In Consolidation Process\Master Automation\Dated Report Archive\" & Format(Date, "yyyy-mm-dd") & "\"


sourcepath = "C:\Users\jjoseph\Desktop\Cisco Project\Archive of XML\" & Format(Date, "yyyy-mm-dd") & "\"
strFileName = Dir(strFileSpec)




'big loop that processes the data from bout a dozen files and compile appends this data into "the hopper".
'Do While strFileName <> ""
'strExt = CreateObject("Scripting.FileSystemObject").GetExtensionName(strFileName)








End Sub

 

[RoryA]

Is that the entire content of the module? What happens if you Debug - Compile the project?