文件夹是手动创建还是怎么创建的?

Question

我从书上的附带的碟子里找出的项目,里面有几个文件夹 里面有common  Data  ***等等的文件夹请问那些文件夹是自己创建的吧?才把文件放进去的吧?

Answer 1

想程序创建也可以，想手动也行，
procedure       TForm1.Button6Click(Sender:       TObject);//创建文件夹   
begin   
if(directoryexists(edit1.text))then   
        showmessage('文件夹已经存在！')   
else   
    begin   
        if       application.MessageBox(pchar('是否创建文件夹'+edit1.text),'操作提示',mb_yesno)=mryes       then   
            begin   
                    forcedirectories(edit1.text);   
          end;   
    end       ;   
End;   

Answer 2

　　软件大多都要对文件、磁盘进行操作。熟悉掌握这些函数可以帮助你轻松实现创建、删除、保存文件等功能。　　1.Append　　功能说明：追加内容到文件中。文件必须要存在。
　　参考实例：
　　var
　　 　S: String;
　　 　F: TextFile;
　　begin
　　 　S := 'This is a book.' ;
　　  AssignFile(F, C:\MyFile.txt ); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Append(F); // 以追加的方式打开文件
　　 　Writeln(F, S); // 将S变量中的内容追加到文本尾后。
　　 　CloseFile(F); // 关闭文件
　　end;　　2.AssignFile　　功能说明：与指定的文件建立连接。
　　参考实例：
　　var
　　 　F: TextFile; // 声明文本文件类型变量
　　begin
　　 　AssignFile(F, C:\MyFile.txt ); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　end;　　3.ChDir　　功能说明：改变当前目录(文件夹)。
　　参考实例：
　　var
　　 　sDir: String;
　　begin
　　 　sDir := C:\Windows ;
　　 　ChDir(sDir); // 此时，系统的当前目录则为C:\Windows目录。
　　end;　　4.CloseFile　　功能说明：关闭文件。当对文件的操作完成后，应该使用CloseFile函数关闭打开的文件。
　　参考实例：
　　var
　　 　S: String;
　　 　AllText: String;
　　 　F: TextFile;
　　begin
　　  AssignFile(F, C:\MyFile.txt ); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Reset(F); // 打开文件
　　 　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾
　　 　　Readln(F, S); // 读取一行文本
　　 　　AllText := AllText + S;
　　 　end;　　 　CloseFile(F); // 关闭文件
　　end;　　5.DeleteFile　　功能说明：删除指定的文件。该函数只有一个参数。此参数为欲删除文件的完整路径。如果删除成功，则返回True。若删除失败、或文件不存在则返回False。　　参考实例：
　　var
　　 　IsOK: Boolean; // 用于保存删除状态
　　begin
　　 　IsOK := DeleteFile( C:\My Documents\Index.html ); // 函数执着后，将结果返回给IsOK变量。如果IsOK变量为True，则表示文件删除成功。
　　 　if IsOK then ShowMessage( 文件删除成功！ )
　　 　else ShowMessage( 文件删除失败！ );
　　end;　　6.DirectoryExists　　功能说明：检测指定的文件夹否存在。如果存在则返回True，反之则为False。
　　参考实例：
　　var
　　 　IsExists: Boolean;
　　begin
　　 　IsExists := DirectoryExists ( C:\Windows );
　　 　if IsExists then ShowMessage( Windows文件夹存在！ )
　　 　else ShowMessage( Windows文件夹不存在！ );
　　end;　　7.DiskFree　　功能说明：获取指定磁盘的剩余空间。该函数只有一个参数。该参数用于指定要获取剩余空间的磁盘号。当参数为0时，表示获取当前磁盘的剩余空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。
　　参考实例：
　　var
　　 　FreeSize: Int64;
　　begin
　　 　FreeSize := DiskFree(3); // 获取C盘中的剩余空间。返回的值是以“字节”为单位的。
　　end;
　　8.DiskSize　　功能说明：获取指定磁盘的空间。该函数只有一个参数。该参数用于指定要获取磁盘空间的磁盘号。当参数为0时，表示获取当前磁盘的空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。
　　参考实例：
　　var
　　 　DiskSize: Int64;
　　begin
　　 　DiskSize:= DiskSize(3); // 获取C盘的空间。返回的值是以“字节”为单位的。
　　end;　　9.EOF　　功能说明：判断文件指针是否移动到了文件未尾。当EOF函数返回值为True时，则不可以使用Readln函数进行读取文件了。　　参考实例：
　　var
　　 　S: String;
　　 　AllText: String;
　　 　F: TextFile;
　　begin
　　  AssignFile(F, C:\MyFile.txt ); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Reset(F); // 打开文件
　　 　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾
　　 　　Readln(F, S); // 读取一行文本
　　 　　AllText := AllText + S;
　　 　end;
　　end;　　10.Erase　　功能说明：删除文件。
　　参考实例：
　　var
　　 　F: File;
　　begin
　　AssignFile(F, C:\MyFile.txt ); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Reset(F); // 打开文件
　　 　CloseFile(F); // 关闭文件
　　 　Erase(F); // 删除文件。在删除文件之前必须先关闭文件。
　　end;　　11.FileExists　　功能说明：检测指定的文件否存在。如果存在则返回True，反之则为False。　　参考实例：
　　var
　　 　IsExists: Boolean;
　　begin
　　 　IsExists := FileExists( C:\Test.txt );
　　 　if IsExists then ShowMessage( 该文件存在！ )
　　 　else ShowMessage( 该文件不存在！ );
　　end;　　12.FileSize　　功能说明：获取文件大小。返回的结果是字节为单位。　　参考实例：
　　var
　　 　F: file of Byte;
　　 　nSize: Longint;
　　begin
　　AssignFile(F, C:\MyFile.txt ); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Reset(F); // 打开文件
　　 　nSize := FileSize(F); // 获取文件大小。
　　 　CloseFile(F); // 关闭文件
　　end;　　13.ForceDirectories　　功能说明：创建新的子目录。路径中不存在的目录将一同创建。
　　参考实例：
　　ForceDirectories( C:\Flash\MyFolder ); // 如果Flash文件夹本身不存的话，那么将会先创建Flash文件夹，然后再创建MyFolder文件夹。　　14.MkDir　　功能说明：创建一个新的子目录(文件夹)。　　参考实例：
　　MkDir( C:\MyFolder ); // 在C盘根目录中创建了一个名叫MyFolder的文件夹。　　需要注意的是，如果在本身不存在的目录中创建子目录将会失败。比如C盘根本不存在Flash文件夹，写成MkDir( C:\Flash\MyFolder );这样将不能成功创建MyFolder文件夹。　　15.Reset　　功能说明：以只读方式打开文件。　　参考实例：
　　var
　　 　F: TextFile; // 声明文本文件类型变量
　　begin
　　 　AssignFile(F, C:\MyFile.txt ); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Reset(F); // 打开文件
　　end;　　16.Rewrite　　功能说明：以可写方式打开文件。如果文件不存在，将会自动创建。使用该函数，将会覆盖文件中的所有内容。　　参考实例：
　　var
　　 　F: TextFile; // 声明文本文件类型变量
　　begin
　　 　AssignFile(F, C:\MyFile.txt ); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Rewrite(F); // 打开文件。如果文件不存在，将会在C盘中创建MyFile.txt文件。如果文件存在，将会覆盖MyFile.txt中的所有内容。
　　end;　　17.Readln　　功能说明：读取一行文本。　　参考实例：
　　var
　　 　S: String;
　　 　F: TextFile;
　　begin
　　AssignFile(F, C:\MyFile.txt ); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Reset(F); // 打开文件
　　 　Readln(F, S); // 读取一行文本到S变量中
　　end;　　18.Rename　　功能说明：更改文件名。
　　参考实例：
　　var
　　 　F: File;
　　begin
功能说明：更改文件名。　　参考实例：
　　var
　　 　F: File;
　　begin
　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　ReName(F, 'C:\NewFile.txt'); // 更名为NewFile.txt
　　end;