Folders.FlNm = FullFileTitle ' OK! We should tell them what the file is called.
Do While UseFolderPath = "" ' Waiting for Christmas.
DoEvents
Loop
If UseFolderPath = "Cancel" Then
If MsgBox("Are you sure you want to cancel?" & vbCrLf & vbCrLf & "If you cancel now, your decryption will not be saved." & vbCrLf, vbYesNo, "Confirm Cancel") = vbNo Then
GoTo UseFolders
Else
Kill App.Path & "\temp.file"
MsgBox "Decryption Canceled"
Me.Hide
StartFrm.Show ' It'd be nice to let them back to the begining.
Exit Function
End If
End If
'Create/use the directory. Copy the new file over. Kill the temp file.