blob: 7a5a391f59228678df3a585e1833ac556d53a2f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program Example26;
{ This program demonstrates the CreateDir and RemoveDir functions }
{ Run this program twice in the same directory }
Uses sysutils;
Begin
If Not DirectoryExists('NewDir') then
If Not CreateDir ('NewDir') Then
Writeln ('Failed to create directory !')
else
Writeln ('Created "NewDir" directory')
Else
If Not RemoveDir ('NewDir') Then
Writeln ('Failed to remove directory !')
else
Writeln ('Removed "NewDir" directory');
End.
|
