ASP umożliwia dostęp do plików, katalogów oraz dysków poprzez obiekt FileSystemObject. Poprzez ten obiekt można tworzyć inne obiekty, tj. File, Folder lub Drive, które określają pliki, katalogi lub dyski komputera lokalnego. Obiekty FileSystemObject i File dostarczają metod i właściwości umożliwiających tworzenie obiektów TextStream, które określają pliki wejściowe i wyjściowe. Pliki tekstowe modą zastąpić bazę danych w przypadkach gdy będzie potrzeba przechowywania niewielkiej ilości danych.

Dostęp do pliku tekstowego

Obiekt TextSream dostarcza niezbędnych metod i właściwości umożliwiających odczytywanie i zapisywanie informacji do pliku tekstowego. Metody obiektu TextStream są następujące:

zaś właściwości:

Poniższy skrypt ASP demonstruje użycie podstawowych metod oraz właściwości obiektu TextStream. Skrypt otwiera plik C:plik.txt lub w przypadku, gdy nie istnieje, tworzy go. Następnie dodawany jest napis "To zostało napisane" oraz data tego wpisu, po czym plik jest zamykany. W dalszej części plik jest otwierany, odczytywana i wyświetlana jego zawartość, a następnie plik jest zamykany.

W liniach 5-7 deklarowane są stałe obiektu FileSystemObject. W linii 8 znajduje się deklaracja zmiennych użytych w skrypcie. W linii 11 tworzony jest obiekt FileSystemObject i przechowywany w zmiennej objFS. W liniach 12-16 sprawdzane jest czy plik o podanej nazwie istnieje poprzez wywołanie metody FileExists. Otwierany jest plik C:plik.txt lub w przypadku gdy on nie istnieje, zostaje utworzony. Linia 13

otwiera plik C:plik.txt (pierwszy parametr) poprzez wywołanie metody OpenTextFile. Metoda posiada następujące parametry:

Odnośnik do otwartego pliku jest przechowywany jako TextStream w zmiennej objTextStream (instrukcja Set). Komenda w linii 15 tworzy plik tekstowy C:plik.txt, jeśli taki nie istnieje. Parametry metody CreateTextFile są następujące:

Linie 12-16 można zastąpić pojedynczą linią, wyglądającą następująco:

Powyższa instrukcja automatycznie tworzy plik C:plik.txt przed jego otwarciem, jeśli taki jeszcze nie istnieje (trzeci parametr). W linii 17 do pliku dopisywany jest tekst zakończony przejściem do następnej linii (metoda WriteLine). Treść tekstu jest następująca: "To zostało napisane" oraz data pobrana w momencie dopisywania tego tekstu. Instrukcja w linii 18 zamyka obiekt TextStream, gdyż wywołana została metoda Close obiektu.
W następnej części skryptu, czyli w liniach 20-28, następuje otwarcie istniejącego już pliku (utworzonego w pierwszej części skryptu) i wyświetlenie jego zawartości. W linii 21 plik C:plik.txt został otwarty, wywołana została metoda OpenTextFile, w trybie do odczytu (drugi parametr - doOdczytu) oraz jako plik ASCII (parametr trzeci - TristateFalse). Zawartość pliku jest wysłana do przeglądarki (klienta) w linii 23-27. Warunek w pętli Do While dotyczy określenia końca pliku. Jeśli wystąpi informacja o końcu pliku, wartość właściwości AtEndOfStream będzie równa wartości TRUE i pętla zakończy swoje wykonywanie. W linii 24 zostaje odczytana pojedyncza linia znajdująca się w pliku i zapisana w zmiennej strLine. W linii 25 zawartość zmiennej strLine jest przetwarzana na tekst HTML i w linii 27 wyświetlana w oknie przeglądarki. Po zakończeniu wykonywania się pętli Do While, obiekt TextStream został zamknięty (linia 28) i zasoby serwera dotyczące obiektów objTextStream oraz objFS zostały zwolnione w liniach 30-31.

Odczytanie właściwości dysku

W celu pobrania informacji o dysku należy posłużyć się obiektem Drive, który zawiera w swoich właściwościach informacje na temat wszystkich zamontowanych na serwerze napędów dyskowych. Obiekt posiada 11 właściwości i nie posiada żadnej metody. Poniżej przedstawiony skrypt ASP odczytuje wszystkie właściwości napędu, na którym sam się znajduje i wyświetla je w oknie przeglądarki.

W liniach 4-7 zostały zdefiniowane stałe użyte w skrypcie, zaś deklaracja zmiennych w liniach 8-9. W linii 11 został stworzony obiekt FileSystemObject, niezbędny w celu utworzenia obiektu Drive. W linii 12 zmiennej strFile została przypisana wartość zmiennej środowiskowej SCRIPT_NAME. Od tej pory zmienna strFile zawiera wirtualną ścieżkę do bieżącego skryptu. W linii 13 następuje odczytanie fizycznej ścieżki przez wykorzystanie zmiennej strFile oraz metody MapPath. W linii 14 nazwa dysku, na którym znajduje się skrypt, jest przypisana do zmiennej strDriveName za pomocą metody GetDriveName obiektu FileSystemObject. Obiekt Drive jest utworzony w linii 15 przez wywołanie metody GetDrive obiektu FileSystemObject i przechowywany w zmiennej objDrive. W liniach 17-41 następuje zapisanie wszystkich informacji dotyczących bieżącego dysku (obiektu Drive) do zmiennej R w postaci łańcucha. Każda właściwość obiektu Drive została omówiona już w skrypcie więc nie ma potrzeby do tego wracać. Linia 43 wysyła do przeglądarki (klienta) zawartość zmiennej R. W liniach 45-46 następuje zwolnienie zasobów serwera przeznaczonych dla obiektów objDrive oraz objFS.

Wykonywanie operacji na katalogach

W celu dokonywania jakichkolwiek operacji na katalogach należ posłużyć się obiektem Folder. Za pomocą jego metod można przenosić, kopiować oraz kasować katalogi. Można także utworzyć plik tekstowy używając metody CreateTextFile obiektu Folder.
Poniższy skrypt wyświetla fizyczną strukturę katalogu głównego WWW wraz z wszystkimi podkatalogami i plikami.

Powyższy skrypt zawiera dwie funkcje (linie 7-26) oraz część główną skryptu (28-38). W części głównej znajduje się deklaracja zmiennych (linia 29) oraz tworzone są obiekty FileSystemObject i Folder. Wywołanie funkcji SprawdzKatalogi z parametrami znajduje się w linii 35. Wywołanie funkcji z parametrami może przyjąć także postać:

Funkcja za chwilę będzie omawiana. Ostatni fragment części głównej zwalnia zasoby serwera zajmowane przez obiekty objRootFolder i objFS.

Funkcja Akapit(glebokosc) zwraca łańcuch z pozycją (odstępem obrazującym wizualnie lokalizację) pliku lub katalogu. Parametrem wejściowym jest glebokosc, który zawiera pozycję (głębokość) pliku lub katalogu. Przypisanie wartości zwrotnej funkcji znajduje się w linii 12. Instrukcja informująca o końcu funkcji znajduje się w linii 13.

Funkcja SprawdzKatalogi(ByRef objKatalog, ByVal glebokosc) pełni rolę procedury, gdyż nie zwraca wartości.
W pierwszej części, linia 16 to deklaracja zmiennych wewnętrznych funkcji, tj. Katalog, Plik oraz i. W linii 17 następuje przyporządkowanie łańcucha zwróconego przez funkcję Akapit zmiennej i (parametrem wejściowym jest pozycja bieżącego katalogu zmniejszona o jeden), która jest wysyłana wraz z nazwą bieżącego katalogu do przeglądarki (klienta) w linii 18. Pętla For Each znajdująca się w liniach 19-21 w przypadku wystąpienia podkatalogów w katalogu bieżącym wywołuje się ona sama, z tą różnicą, że jej parametrami są teraz:

W dalszej części, linia 22, zmiennej i przypisywana jest wartość łańcucha zwróconego przez funkcję Akapit z parametrem wejściowym równym poziomowi (głębokości) bieżącego katalogu. W liniach 23-25 znajduje się kolejna pętla For Each, która wyświetla nazwy wszystkich plików znajdujących się w bieżącym katalogu. Linia 24 informuje o zakończeniu funkcji SprawdzKatalogi. Funkcja SprawdzKatalogi jest funkcją rekurencyjną i jej działanie jest trochę złożone. Poniższa funkcja (PokazBiezacyKatalog) mogłaby zastąpić funkcję SprawdzKatalogi w przypadku, gdyby należało wyświetlić informacje tylko na temat bieżącego katalogu, bez wglądu w strukturę wewnętrzną podkatalogów. Funkcja PokazBiezacyKatalog nie posiada parametru wejściowego określającego poziom (głębokość) umieszczonych plików oraz podkatalogów, nie jest funkcją rekurencyjną, gdyż nie wywołuje się sama z kodu wewnętrznego.

Przenoszenie, kopiowanie i kasowanie plików i katalogów

Obiekt FileSystemObject dostarcza metod umożliwiających przenoszenie, kopiowanie oraz kasowanie plików i folderów. Oto one:

Autor: Krzysztof Stelmach
Strona pochodzi z http://www.stelmach.info/