Automatyzacja OLE: procedura SetZipEncryptSetZipEncryptFlags( oldPassword, newPassword, storePassword, encryptNew, restrictCopying ) Procedura ta pozwala ustawić opcje dotyczące szyfrowania plików ZIP, dostępne na karcie Szyfrowanie plików zip okna dialogowego Właściwości indeksu. Zmienna oldPassword zostanie pominięta, jeśli hasło nie zostało ustawione dla bieżącego indeksu. Jeśli wprowadzono już hasło a kopiowanie jest ograniczone, wtedy ten parametr musi zgadzać się z istniejącym hasłem. W każdym razie hasło zostanie ustawione według wartości parametru newPassword. Można tu wstawić pusty łańcuch, aby usunąć hasło. Parametry storePassword, encryptNew and restrictCopying mają wartości logiczne [Boolean], korespondujące ze stanem odpowiednich pól na karcie Szyfrowanie plików zip okna dialogowego Właściwości indeksu. Przykład: Zwraca True, jeśli operacja powiodła się.If Not wilbur.SetZipEncrypt("encrypted", "vbencrypted", True, False, False) Then MsgBox ("Ustawienie szyfrowania plików zip nie powiodło się")End If |
Copyright (c) 1999 RedTree Development Inc. Wszelkie prawa zastrzeżone. |