Newsgroup: it.comp.lang.visual-basic
Titolo: Convertire codice da Excel a Visual Basic 6

Salve,
Ho una applicazione in excel che vossei trasferire in VB6 e renderla 
eseguidile, in essa ho alcuni pulsanti ai quali sono associati le seguenti 
sub:
'=============>>
Public Sub Incolla()
    Dim FSO As Object
    Dim sDrive As String
    Dim Res As VbMsgBoxResult
    Res = MsgBox(Prompt:="Copaire i file nella cartella
c:\windows\database?", _
                            Buttons:=vbYesNo, _
                            Title:="! ! ATTENZIONE ! !")
    If Res = vbNo Then Exit Sub
sDrive = dove()
if dove = "" Then
        MsgBox("La usb-pen non è inserita !")
        Exit Sub
Else
    Percorso = sDrive & ":\data\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFile Percorso & "\*.xls" , "c:\windows\database\"
End If
End Sub
'<<=============
'==============>
Sub anno9899_Clic()
Dim WB As Workbook
    Dim Percorso As String
    Dim sStr As String
    Percorso = "C:\data\"
    If Right(Percorso, 1) <> "\" Then
        Percorso = Percorso & "\"
    End If
    sStr = Percorso & "9899.xls"
    If Dir(sStr) <> "" Then
        On Error Resume Next
        Set WB = Workbooks.Open( _
                 Filename:=sStr, _
                 Password:="9899PW")
        If Err.Number <> 0 Then
            MsgBox Prompt:="La Password non e' stata risconosciuta!", _
                          Buttons:=vbCritical, _
                         Title:="Errore di Password"
            On Error GoTo 0
            Exit Sub
        End If
    Else
        MsgBox Prompt:="Non si trova il file " & sStr, _
                      Buttons:=vbCritical, _
                      Title:="ERRORE"
    End If
End Sub
'============>
Ed ho la funzione:
'=====================>
Function dove() As String
Dim FSO As Object
Dim elenco As Object
Dim uno As Object
Dim p As String
Const nomefile As String = "peppino.xls"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set elenco = FSO.Drives
For Each uno In elenco
  If uno.DriveType = 1 Then
    p = uno.DriveLetter
    If Dir(uno.DriveLetter & ":\" & nomefile) <> "" Then
      dove = uno.DriveLetter
      Exit For
    End If
  End If
Next
Set elenco = Nothing
Set FSO = Nothing
End Function
'Sostituisci alla costante nomefile il nome di un file
'che sicuramente è presente nella usb-pen
'
'In questo modo, richiamandola di restituirà la lettera
'corrispondente alla usb-pen. Se ti ritorna una stringa
'vuota vuol dire che la usb-pen non è inserita.
'<====================
Come posso fare il passaggio?
La funzione dove la metto?
Essa viene richiamata da diverse sub all'iterno del file!
Grazie Per le vostre risposte!

Help Me ! ! ! 

 La funzione dove la metto?
In un modulo?
-- 
DBMS Firebird
VB6 + Ado

 Riscrivi ed eventualmente adatta le routine
Ci ho provato, ma non mi funziona, per esempio questo codice
'==============>
Sub anno9899_Clic()

    Percorso = "C:\data\"



End Sub
'============>
Mi apre il file, ma subito me lo chiude, vorrei che il file rimanesse 
aperto!
Ho provato anche ad inserire come riferimenti Objet Library di office 11 ma 
non va!
E non parliamo della funzione! 

Come faccio la conversione dei codici?
quacuno potrebbe indirizzarmi?
grazie