Alessandro Del Sole's Blog

{ A programming space about Microsoft® .NET® }
posts - 1909, comments - 2047, trackbacks - 352

My Links

News

Your host

This is me! Questo spazio è dedicato a Microsoft® .NET®, di cui sono molto appassionato :-)

Cookie e Privacy

Microsoft MVP

My MVP Profile

Microsoft Certified Professional

Microsoft Specialist

Xamarin Certified Mobile Developer

Il mio libro su VB 2015!

Pre-ordina il mio libro su VB 2015 Pre-ordina il mio libro "Visual Basic 2015 Unleashed". Clicca sulla copertina per informazioni!

Il mio libro su WPF 4.5.1!

Clicca sulla copertina per informazioni! E' uscito il mio libro "Programmare con WPF 4.5.1". Clicca sulla copertina per informazioni!

These postings are provided 'AS IS' for entertainment purposes only with absolutely no warranty expressed or implied and confer no rights.
If you're not an Italian user, please visit my English blog

Le vostre visite

I'm a VB!

Guarda la mia intervista a Seattle

Follow me on Twitter!

Altri spazi

GitHub
I miei progetti open-source su GitHub

Article Categories

Archives

Post Categories

Image Galleries

Privacy Policy

Ottenere la directory di sistema: VB 6 e VB 2005

Con una certa soddisfazione posso dire che il mio blog ha raggiunto una certa popolarità e visibilità perciò approfitterò di questo spazio, di tanto in tanto, per inserire dei piccoli frammenti di codice che possano illustrare differenze tra VB 6 e VB 2005; o meglio, rappresentare come quello che in VB 6 si faceva con decine di righe di codice (o magari era impensabile..) mentre con VB 2005 si fa con molto meno. Il mio intento è quello di spingere chi è ancora così "riottoso" alla migrazione a VB 2005 alla curiosità verso il nuovo linguaggio. Non cambierò di certo il mondo..ma voglio dare il mio contributo.

Oggi inizio con un semplice obiettivo: ottenere il nome della directory di sistema. Questo il codice VB 6 (con il necessario ricorso alle API):

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Function RetrieveSystemDirectory() As String
    Dim DirName As String, Result As Long
    DirName = Space(255)
    Result = GetSystemDirectory(DirName, 255)
    DirName = Left$(DirName, Result)
    RetrieveSystemDirectory = DirName
End Function

Questo invece il codice VB 2005:

Dim SysDir As String = Environment.SystemDirectory

Che ne dite...?

Alessandro

Print | posted on domenica 3 dicembre 2006 19:16 | Filed Under [ Visual Basic ]

Powered by:
Powered By Subtext Powered By ASP.NET