Lines Matching refs:strout
262 Dim strout As String * 80
275 strout = Space$(80)
279 Mid$(strout, 1, 50) = "Filename:"
280 Mid$(strout, 53, 4) = "Size"
281 Mid$(strout, 62, 4) = "Date"
282 Mid$(strout, 71, 4) = "Time"
283 uZipMessage = strout & vbNewLine
284 strout = Space$(80)
299 Mid$(strout, 1, 50) = Mid$(s0, 1, 50)
300 Mid$(strout, 51, 9) = Right$(" " & CStr(ucsize), 9)
301 Mid$(strout, 62, 3) = Right$("0" & Trim$(CStr(mo)), 2) & "/"
302 Mid$(strout, 65, 3) = Right$("0" & Trim$(CStr(dy)), 2) & "/"
303 Mid$(strout, 68, 2) = Right$("0" & Trim$(CStr(yr)), 2)
304 Mid$(strout, 72, 3) = Right$(Str$(hh), 2) & ":"
305 Mid$(strout, 75, 2) = Right$("0" & Trim$(CStr(mm)), 2)
307 ' Mid$(strout, 77, 2) = Right$(" " & CStr(cfactor), 2)
308 ' Mid$(strout, 80, 8) = Right$(" " & CStr(csiz), 8)
316 uZipMessage = uZipMessage & strout & vbNewLine