piatok 23. septembra 2011

Prístup k priečinkom bez COM odkazov (Visual Basic)

Jednou z úloh, ktoré ste pravdepodobne museli raz či dvakrát urobiť, je prístup k súborom v špeciálnych priečinkoch ako Desktop, Favorites a Documents. Problém s prístupom do týchto priečinkov je, že používateľ a operačný systém na seba závisia. Napríklad, potrebný priečinok môže byť v C:\Documents and Settings\user1, ale pre iného užívateľa sa tento priečinok nachádza v H:\Documents and Settings\user2

Vo VB 2003 môžete získať prístup do špeciálneho priečinku pomocou odkazu Windows Script Host Object Model a pomocou kódu nasledovne:

Dim wsh As New _
IWshRuntimeLibrary.WshShell
Dim myFavorites As String = _
CType(wsh.SpecialFolders. _
Item("MyDocuments"), String)

Vo VB 2005 nemusíte urobiť nič z uvedených krokov. Postačí, ak jednoducho použijete triedu My, napríklad takto:

Dim strMyDocuments _
As String = My.Computer. _
FileSystem. _