[VB6] riportare su una lista le sottocartelle di una directoyry

prerequisiti

bisogna attivare tra i riferimenti "Micrisoft scritpting runtime"

codice

Private Sub listaSubDir(ByVal dirIniziale As String, ByVal listaDestinazione As ListBox, ByVal togliInizio As Integer)
Dim fso As New FileSystemObject
Dim Directory As Folder
Dim SubDirs As Folder

  Set Directory = fso.GetFolder(dirIniziale)
  
  For Each SubDirs In Directory.SubFolders
    listaDestinazione.AddItem Mid(SubDirs.Path, togliInizio + 1), 0
    listaSubDir dirIniziale & "\" & SubDirs.Name, listaDestinazione, togliInizio
  Next

End Sub

excel, formatto numero personalizzato

http://office.microsoft.com/it-it/excel-help/creare-o-eliminare-un-formato-di-numero-personalizzato-HP001216503.aspx

[PHP MYSQL] MODULO PER REGISTRAZIONE UTENTE

Tra i veri esempi che si trovano in rete, questi sono i due più semplici e da applicare
http://www.lucabonaldo.it/registrazione-utente-in-php/
http://www.ebug.it/modulo-registrazione-in-php/

[ASP] Passare parametri con Get e con Post

File chiamante
<br><br>
<form id='provaGet' name='provaGet' action='provaGet.asp'  method='get'>
<label>Invia con get</label><br>
<input type="text" id="campoGet1" name="campoGet1" value="primo" /><br>
<input type="text" id="campoGet2" name="campoGet2" value="secondo" /><br>
<input type="text" id="campoGet3" name="campoGet3" value="terzo" /><br>
<input type="text" id="campoGet4" name="campoGet4" value="quarto" /><br>
<input class="pulsante" type="submit" value="Invia!">
</form>
<br><br>
<form id='provaPost' name='provaPost' action='provaPost.asp'  method='Post'>
<label>Invia con Post</label><br>
<input type="text" id="campoPost1" name="campoPost1" value="primo" /><br>
<input type="text" id="campoPost2" name="campoPost2" value="secondo" /><br>
<input type="text" id="campoPost3" name="campoPost3" value="terzo" /><br>
<input type="text" id="campoPost4" name="campoPost4" value="quarto" /><br>
<input class="pulsante" type="submit" name="mi" value="Invia!">
</form>

File chiamato con Get
<%
For i = 1 To Request.QueryString.Count  
nomeCampo = Request.QueryString.Key(i)
valoreCampo = trim(Request.QueryString.Item(i))
response.write nomecampo & "<br>"
response.write valoreCampo & "<hr>"
Next

%>

File chiamato con Post
<%
For i = 1 To Request.Form.Count  
nomeCampo = Request.Form.Key(i)
valoreCampo = trim(Request.Form.Item(i))
response.write nomecampo & "<br>"
response.write valoreCampo & "<hr>"
Next
%>

[ASP] get e post

File chiamante
<br><br>
<form id='provaGet' name='provaGet' action='provaGet.asp'  method='get'>
<label>Invia con get</label><br>
<input type="text" id="campoGet1" name="campoGet1" value="primo" /><br>
<input type="text" id="campoGet2" name="campoGet2" value="secondo" /><br>
<input type="text" id="campoGet3" name="campoGet3" value="terzo" /><br>
<input type="text" id="campoGet4" name="campoGet4" value="quarto" /><br>
<input class="pulsante" type="submit" value="Invia!">
</form>
<br><br>
<form id='provaPost' name='provaPost' action='provaPost.asp'  method='Post'>
<label>Invia con Post</label><br>
<input type="text" id="campoPost1" name="campoPost1" value="primo" /><br>
<input type="text" id="campoPost2" name="campoPost2" value="secondo" /><br>
<input type="text" id="campoPost3" name="campoPost3" value="terzo" /><br>
<input type="text" id="campoPost4" name="campoPost4" value="quarto" /><br>
<input class="pulsante" type="submit" name="mi" value="Invia!">
</form>

File chiamato con Get
<%
For i = 1 To Request.QueryString.Count  
nomeCampo = Request.QueryString.Key(i)
valoreCampo = trim(Request.QueryString.Item(i))
response.write nomecampo & "<br>"
response.write valoreCampo & "<hr>"
Next

%>

File chiamato con Post
<%
For i = 1 To Request.Form.Count  
nomeCampo = Request.Form.Key(i)
valoreCampo = trim(Request.Form.Item(i))
response.write nomecampo & "<br>"
response.write valoreCampo & "<hr>"
Next
%>

[ASP] creare un file excel da asp

Ecco il codice di un piccolo esempio
<% 
Dim FileName 
  FileName="mioFile.xls" 
  response.buffer = true 
  response.ContentType = "application/vnd.ms-excel" 
  response.AddHeader "content-disposition", "inline; filename=" & FileName 
  response.write "<table>" 
  for i = 1 to 5
    response.write "<tr><td>" 
    response.write i * i 
    response.write "</td></tr>" 
  next 
  response.write "<tr><td width=40><b>=somma(A1:A5)</b></td></tr>" 
  response.write "</table>" 
  response.flush 
  response.end 
%>

[VB6] conoscere MAC address

Private Sub Command1_Click()
'elenco indirizzi IP

Dim objWMIService, colNetAdapters, objNetAdapter
    
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration " & "where IPEnabled=TRUE")

  For Each objNetAdapter In colNetAdapters
    Text1(0).Text = objNetAdapter.Caption
    Text1(1).Text = objNetAdapter.MACAddress
    Text1(2).Text = Join(objNetAdapter.ipAddress, ",")
    MsgBox objNetAdapter.MACAddress

  Next


End Sub