title image


Smiley Die drei Wörter nützen nichts
Hi,



wenn man das Objektmodell nicht näher kennt.





Private Const ssfNETWORK As Long = &H12

'

Private sh As Object

'

Private Sub Command1_Click()

sh.open ssfNETWORK

End Sub

'

Private Sub Form_Load()

Set sh = CreateObject("Shell.Application")

End Sub

'

Private Sub Form_Terminate()

Set sh = Nothing

End Sub




Programmierst Du noch frei oder wirst Du schon von Microsoft verwaltet ( .NET)?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: