Come determinare se una cartella è condivisa

Diego La Monica — Fri, 27 Aug 2010 09:17:42 +0000

Talvolta quando si creano degli applicativi che devono lavorare in background senza l’intervento dell’utente, è bene prevedere qualsiasi anomalia senza però segnalare con un alert (magari su un server) la situazione anomala e comunque senza mandare in crash l’intera applicazione per una condizione non verificatasi.

Tempo addietro mi capitò sviluppando una procedura batch che un sistema generava dei files e che questi dovevano essere trasferiti in una cartella condivisa sul server per cui mi serviva un metodo per capire se effettivamente tale cartella era condivisa o meno.

Il codice che segue mi ha aiutato nella risoluzione del problema:

Type SHFILEINFO
 hIcon As Long
 iIcon As Long
 dwAttributes As Long
 szDisplayName As String * MAX_PATH
 szTypeName As String * 80
End Type

Public Const SHGFI_ATTRIBUTES = &H800
Public Const SFGAO_SHARE = &H20000
Public Declare Function SHGetFileInfo Lib  "shell32.dll" Alias "SHGetFileInfoA" _
 (ByVal pszPath As String, ByVal swFileAttributes As Long, _
 psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long

Public Function IsSharedThisFolder(ByVal Path As String) As Boolean
 Dim sfi As SHFILEINFO

 SHGetFileInfo Path, 0, sfi, Len(sfi), SHGFI_ATTRIBUTES
 IsSharedThisFolder=(sfi.dwAttributes And SFGAO_SHARE)
End Function

Come eseguire il download di un file da Internet

Diego La Monica — Fri, 27 Aug 2010 09:13:29 +0000

Diverso tempo fa mi trovai a dover affrontare il problema dell’aggiornamento di un applicazione via internet costituita da una serie di files e visto che non volevo che i miei clienti si scomodassero a scaricare corposi messaggi di posta elettronica (causandogli magari la saturazione della casella) e comunque volevo evitare che il personale potesse fare dei “copia & incolla” sbagliati e fondamentalmente non volevo ritrovarmi ore ed ore al telefono per dire… vai su… copia il file… incollalo in… sposta questo… insomma ci siamo capiti!

Per ovviare a quanto previsto ho cercato un po’ in giro su internet una serie di possibili soluzioni e trovandone una l’ho poi adattata alle mie esigenze.

Di seguito c’è un estratto di codice sviluppato con Microsoft Visual Basic 6.0 adattato genericamente a scaricare l’immagine http://www.diegolamonica.info/images/diegolamonica.jpg da questo sito e collocarla nella root del disco rigido.

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
 "URLDownloadToFileA" (ByVal pCaller As Long, _
 ByVal szURL As String, _
 ByVal szFileName As String, _
 ByVal dwReserved As Long, _
 ByVal lpfnCB As Long) As Long
 Public Function DownloadFile(URL As String, _
 LocalFilename As String) As Boolean

 Dim lngRetVal As Long

 lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)

 If lngRetVal = 0 Then DownloadFile = True
 End Function

 Private Sub Form_Load()

 ' Sostituire il primo parametro con il file che si vuole scaricare
 ' ed il secondo argomento con il nome del file locale nel quale vuoi salvarlo.

 ret = DownloadFile("http://diegolamonica.info/images/diegolamonica.jpg", "c:\logo_diego.jpg")
 End Sub

Diego La Monica » Networking

Come determinare se una cartella è condivisa

Come eseguire il download di un file da Internet