Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Skrót do pliku+jego właściwości...
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002
Skrót do pliku+jego właściwości...

Mam dwa pytania:

Czy ktoś może wie jak wyświetlić właściwości podanego pliku? (To okienko, które pojawia się po kliknięciu prawym klawiszem na pliku i daniu: "Właściwości".

Czy ktoś wie jak z poziomu VB zrobić skrót (plik *lnk) do danego pliku?


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


05-10-2004 18:27
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Aby wyświetlić okienko właściwości skorzystaj z API.

Jak zrobić link - przeszukaj forum, już dawałem przykład.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

05-10-2004 20:11
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

No wiesz... ogólnikowo to ja też podejrzewam, że to trzeba wykorzystać API. Tylko jaką funkcję?

Co do skrótu, to postaram się przeszukać forum, ale może jednak mógłbyś podać jeszcze raz?


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


05-10-2004 20:22
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Trochę o właściwościach pliku znajdziesz tu:
http://www.mentalis.org/apilist/GetFileInformationByHandle.shtml

Przykład tworzenia skrótu

Sub ASDSA
    create_lnk "C:\windows\pulpit\skrot", _
        "C:\Program Files\MojProgram\MojProgram.exe", _
        "C:\Program Files\MojProgram", _
        0,"none", ""
End Sub

Sub create_lnk(lnk_name, target, work_dir, Window_style As Long, icon_file, icon_index)
Set WSHShell = CreateObject("WScript.Shell"
Set f = WSHShell.CreateShortcut(lnk_name & ".lnk"
f.TargetPath = target
f.WorkingDirectory = work_dir
f.WindowStyle = Window_style
If icon_file <> "none" Then f.IconLocation = WSHShell.ExpandEnvironmentStrings(icon_file & ", " & icon_index)
f.Save
End Sub




_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

05-10-2004 21:25
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1