fork download

copy

	On Error Resume Next
	dim strMonth
	dim strDay
	dim strToday
	dim xcmd
	dim oShell
	dim strTodayFile
 
   	' Get current month, add leading zero if necessary
	If DatePart("m",Date) < 10 Then
		strMonth = 0 & DatePart("m",Date)
	Else
		strMonth = DatePart("m",Date)
	End If
 
	' Get current day, add leading zero if necessary
	If DatePart("d",Date) < 10 Then
		strDay = 0 & DatePart("d",Date)
	Else
		strDay = DatePart("d",Date)
	End If
 
	' Format output for today
	strToday = strMonth & strDay

Main.java:1: error: class, interface, or enum expected
	On Error Resume Next
	^
Main.java:9: error: unclosed character literal
   	' Get current month, add leading zero if necessary
   	^
Main.java:16: error: unclosed character literal
	' Get current day, add leading zero if necessary
	^
Main.java:23: error: unclosed character literal
	' Format output for today
	^
4 errors

Standard output is empty