Newsgroup: it.comp.appl.access
Titolo: PUBLIC SUB

Ciao
potreste spiegarmi come devo utilizare tutti questi moduli che ho trovato 
sul sito e mi tornerebbero utli? Come faccio a richiamarli?
Cancellare un file con VBA
=====================================
Public Sub DeleteFile(ByVal FilePath As String)
On Error GoTo error
Kill FilePath$
Exit Sub
error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub
'dove FilePath č una variabile stringa che contiene il path completo del 
file da cancellare.AL posto di FILE PATH sulla prima riga di public 
Sub...devo scrivere il percordo tra apici 
"D:\miacartella\prova\"=======================================
Determinare il primo e l'ultimo giorno di ciascuna delle 52 settimane di un 
anno
Public Sub DeterminaSettimane(DataIniziale As Date)
   ' in DataIniziale mettere il primo giorno dell'anno che si desidera
   'nel formato "01/01/2003"
   'esempio: DeterminaSettimane("01/01/2003")
   Dim NuovaData As Date
   Dim rcs As Recordset, i As Integer
   Dim MioGiorno
   MioGiorno = WeekDay(DataIniziale, vbMonday)
   'questo perchč il primo giorno č il lunedě
   'Ora accodo i valori solo per la prima settimana
   Set rcs = CurrentDb.OpenRecordset("Settimane")
    With rcs
    .AddNew
    !NSettimana = 1
    !DataInizio = DataIniziale
    !DataFine = DataIniziale + (7 - MioGiorno)
    .Update
    End With
    NuovaData = DataIniziale + ((7 - MioGiorno) + 1)
    'finalmente accodo gli altri valori
    For i = 2 To 53
            With rcs
            .AddNew
            !NSettimana = i
            !DataInizio = NuovaData
            !DataFine = NuovaData + 6
            NuovaData = !DataFine
            .Update
            End With
        NuovaData = NuovaData + 1
    Next i
    rcs.Close
End Sub=========================================================Creare una 
tabella contenente i nomi dei files presenti in una directory.Public Sub 
elencafile(Optional d As String, Optional j As String)
   'Autore: Lorenzo Coronati
   'Argomenti:
   ' d=directory
   ' j=maschera di match
   Dim t As TableDef
   Dim r As Recordset
   Dim s As String
   If d = "" Then d = CurDir ' se non specificata usa la dir corrente
   If j = "" Then j = "*.*" ' se non specificato, lista tutti i file
   If Right(d, 1) <> "\" Then d = d & "\"
   s = "Files presenti in " & d
   Set t = CurrentDb.CreateTableDef(s)
   t.Fields.Append t.CreateField("NomeFile", dbText)
   CurrentDb.TableDefs.Append t
   Set r = CurrentDb.OpenRecordset(s, dbOpenTable)
   s = Dir(d & j)
   With r
      Do While s <> "" ' cicla per ogni file nella directory
         .AddNew
         !NomeFile = s
         s = Dir
         .Update
      Loop
   End With
End Sub=============================================================Grazie 

Call DeleteFile(FilePath)
Call DeterminaSettimane(DataIniziale)
Call elencafile
Li metti tutti in un modulo bas e li richiami da qualsiasi punto del codice.
Ciao.
eSQueL


Con riferimento al modulo per cancellare i file di una directory presente 
sul sito, dopo averla messa i un modul base
modulo 1
Public Sub DelFilesInDir(DirPath As String, DelDir As Boolean)
   On Error GoTo error
   Kill DirPath$ & "\*.*"
Del_Dir:
   If DelDir = True Then
      RmDir DirPath$
   End If
   Exit Sub
error:
   If Err.Number = 53 Then Resume Del_Dir
   MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error"
End Subper richiamarla alla pressione del tasto, devo fare cosě?
Private Sub Cancella_Click()
DelFilesInDir("d:\prova")
End Sub
o cosě?
DelFilesInDir("d:\prova")