العمليات على الملفات والمجلدات بتقنية ASP
قم اولا بانشاء مجلد اسمه FileSystem تحت الروت الاساسي للويب مثلا C:inetpubwwwrootFileSystem ثم قم بانشاء ملف نصي وقم بكتابة بعض الاسطر به وسميه test_read_File_System.txt قمنا بتسميته كذلك حتى نبين بعض الخصائص
الان للتعرف على العمليات والخصائص بالملفات والمجلدات اكتب الكود التالي داخل صفحة جديدة وقم بتسميتها ب Default.asp
<%
FolderPathe = "C:inetpubwwwrootFileSystem" ' تعريف متغير ونضع به اسم المجلد
FilePath = Server.MapPath("test_read_File_System.txt") 'تعريف متغير والحصول على المسار الكامل للملف النصي
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(FilePath)
set fo=fs.GetFolder(FolderPathe)
%>الان لمعرفة بع الخصائص قم بكتابة الاسطر التالية
<%
Response.Write("The file test_read_File_System.txt was created on: " & f.DateCreated & "
") 'لمعرفة تاريخ انشاء الملف
Response.Write("The file test_read_File_System.txt was last modified on: " & f.DateLastModified & "
") ' لمعرفة اخر تحديث طرء على الملف
Response.Write("The file test_read_File_System.txt was last accessed on: " & f.DateLastAccessed & "
") ' لمعرفة تاريخ اخر دخول على الملف
Response.Write("File resides on drive: " & f.Drive & "
") ' لمعرف اسم القرص الذي عليه الملف
Response.Write("The file is in the folder: " & f.ParentFolder & "
") ' لمعرفة اسم المجلد الاب للملف
Response.Write("Name: " & f.Name & "
ShortName: " & f.ShortName & "
") ' لمعرفة اسم الملف واسم الملف المختصر
Response.Write("ShortPath: " & f.ShortPath & "
") ' لمعرفة المسار المختصر للملف
Response.Write("Type: " & f.Type& "
") ' لمعرفة نوع الملف هلو نصي او غيره
Response.Write("File Size: " & f.Size & " Byte.
") ' حجم الملف بالبايت
Select case f.Attributes 'للتعرف على خصائص الملف
case 1
FileAttributes = "Read-only file"
case 2
FileAttributes = "Hidden file"
case 4
FileAttributes = "System file"
case 16
FileAttributes = "Folder or directory"
case 32
FileAttributes = "File has changed since last backup"
case 1024
FileAttributes = "Link or shortcut"
case 2048
FileAttributes ="Compressed file"
end select
Response.Write("The attributes of the file are: " & FileAttributes & "
")
%>لمعرفة كل الملفات في هذا المجلد نستخدم الكود التالي
<%
Response.write("
File in Thise Folder Is:
")
for each x in fo.files
'Print the name of all files in the test folder
Response.write(x.Name & "
")
next
%>لمعرفة كل المجلدات الفرعية في هذا المجلد نقوم بكتابة
<%
Response.write("
Sub Folder in Thise Folder Is:
")
for each x in fo.SubFolders
'Print the name of all subfolders in the test folder
Response.write(x.Name & "
")
next
%>هل المجلد على الروت الرئيسي
<%
Response.write("
folder is the root folder:
")
if fo.IsRootFolder=true then
Response.Write("Yes")
else
Response.Write("No")
end if
%>هل هذا المجلد موجود
<%
Response.write("
Folder c:temp exists?
")
If fs.FolderExists("c:temp") = true Then
Response.Write("Yes")
Else
Response.Write("No")
End If
%>هل يوجد محرك اقراص بهذا الاسم
<%
Response.write("
Drive g: exists?
")
if fs.driveexists("g:") = true then
Response.Write("Yes")
Else
Response.Write("No")
End If
%>لانشاء نسخة عن الملف
<%
f.Copy("c:new_test.txt",false)
%>لحذف الملف
<% f.Delete %>
لنقل الملف على مسار اخر
<%
f.Move("c:test")
%>سوف اقوم بوضع باقي هذا الدرس في موضوع اخر قريبا ولكن لاتنسوا ان تضعوا كل هذه الاكواد في صفحة واحدة او تقوم بوضع بناء الكائن في كل مرة تستدعي بها الكود يعني
<%
FolderPathe = "C:inetpubwwwrootFileSystem"
FilePath = Server.MapPath("test_read_File_System.txt")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(FilePath)
set fo=fs.GetFolder(FolderPathe)
%>