Now complains on download if download path doesn't exist.

This commit is contained in:
mysticbbs 2013-05-23 20:44:40 -04:00
parent 41512144be
commit dcc5deb77c
1 changed files with 6 additions and 0 deletions

View File

@ -647,6 +647,12 @@ Var
Image : TConsoleImageRec;
Queue : TProtocolQueue;
Begin
If Not DirExists(XferPath) Then Begin
ShowMsgBox (0, 'Download directory does not exist');
Exit;
End;
Queue := TProtocolQueue.Create;
Zmodem := TProtocolZmodem.Create(Client, Queue);