Newsgroup: it.comp.appl.access
Titolo: Spostamento Alfabetico File Word

Ragazzi salve a tutti,
grazie a Massimiliano e ai vostri preziosi aiuti sono arrivato all'epilogo
del programma! Almeno spero!
Ho l'ultimo scoglio da superare!
Ho una serie di documenti "word" salvati in una cartella "D:\" intitolati
coi capi "cognome", "nome" e "progressivo" del record di access. Ho su un
server 22 cartelle ogniuna chiamata con una lettera dell'alfabeto
"A,B,C...". Adesso dovrei spostare i file word dalla cartella temporananea
"D:\" dentro la cartella corrispondente! Esempio il file "Mirizzi Francesco
2563.rtf" deve andare logicamente nella Cartella "C:\M" perchč il congnome
inizia per "M" e cosě via! :o)
Si puň fare una cosa del genere? Se si chi č chi mi da una mano?
Grazie infinite! ;o)
Francesco
--------------------------------
Inviato via 
http://usenet.libero.it


Quando scivi il path, inserisci una variabile
dim Lettera as string
Lettera = left(Cognome,1)
path = "c:\" & Lettera & "\" etc...
Oh ma che t'ho adottato???
;-)
ciao sempre il tuo MI-TI-CO (ma vaffa...)
MAssimiliano


Ciao Mitico MA ;o)
allora ho fatto un bottone e ti posto tutto il codice così mi dici dove
sbaglio!
Private Sub ArA_Click()
Dim path
Dim path2
Dim Lettera As String
Lettera = Left(Cognome, 1)
path = "C:\" & Lettera & "\" & Me.Cognome & " " & Me.Nome & " " &
Me.Progressivo_Manuale & ".rtf"
(percorso comprensivo del nome file dove il file sarà spostato) ok?
path2 = "D:\" & Me.Cognome & " " & Me.Nome & " " & Me.Progressivo_Manuale &
".rtf"
(percorso originario del file)
If Dir(path) <> "" Then
If Dir(path2) <> "" Then
Kill path2
End If
End If
(Questa l'ho copiata dal bottone di ieri! :o))
Name path As "C:\" & Lettera & "\" & Me.Cognome & " " & Me.Nome & " " &
Me.Progressivo_Manuale & ".rtf"
(Spostamento del file)
MsgBox "Referto inviato correttamente"
End Sub
Mi da errore al comando "NAME"! Perchè? Il non riesco a trovare l'errore!
AIUTO!
Grazie ancora
Francesco


CE L'HO FATTA DA SOLOOOOOOOOOOOOO!
NON CI POSSO CREDERE! SONO UN MITO!
Avevo invertito il "path" nel "name"! :o))))
Va alla grande!
Solo una cosa! Quando il file è stato già spostato se riclicco il bottone mi
da il messaggio d'errore "Debug" o "termina"! Come si può evitare questo?
Grazie ancora!
6 miticissimo! ;o)



Checco, Checco... mi cadi su queste stupidate...
ciao MAssimiliano


 6 miticissimo! ;o)
Io l'aggiusterei così
Private Sub ArA_Click()
XXXXXXXXPrivate Sub MAssimilinao_Click() - un pò di celebrazione.
Dim path
Dim path2
Dim Lettera As String
Lettera = Left(Cognome, 1)
path = "C:\" & Lettera & "\" & Me.Cognome & " " & Me.Nome & " " &
Me.Progressivo_Manuale & ".rtf"
(percorso comprensivo del nome file dove il file sarà spostato) ok?
path2 = "D:\" & Me.Cognome & " " & Me.Nome & " " & Me.Progressivo_Manuale &
".rtf"
(percorso originario del file)
If Dir(path) <> "" Then
If Dir(path2) <> "" Then
Kill path2
End If
xxxxxxxx qui inserisco
Name path as path2
MsgBox "Referto inviato correttamente"
else
Msgbox "Ehi Ciccio l'hai già spostato!!!", vbInformation, "Rimba..., se non
ci fossi io!!"
End If
(Questa l'ho copiata dal bottone di ieri! :o))
Name path As "C:\" & Lettera & "\" & Me.Cognome & " " & Me.Nome & " " &
Me.Progressivo_Manuale & ".rtf"
(Spostamento del file)
MsgBox "Referto inviato correttamente"
xxxxxxxxxxxxxQuesti li cancello da qui, perchè l' ho gia usati
End Sub
ciao MAssimiliano


 ciao MAssimiliano
Francesco


 Francesco
Seguiti l'altro ramo per l'altra soluzione.
ciao MAssimiliano


Mi da un errore! do ve dice "Name path As path2"
Private Sub ArA_Click()
Dim path
Dim path2
Dim Lettera As String
Lettera = Left(Cognome, 1)
path = "C:\" & Lettera & "\" & Me.Cognome & " " & Me.Nome & " " &
Me.Progressivo_Manuale & ".rtf"
path2 = "C:\" & Me.Cognome & " " & Me.Nome & " " & Me.Progressivo_Manuale &
".rtf"
If Dir(path) <> "" Then
If Dir(path2) <> "" Then
Kill path
End If
Name path As path2
MsgBox "Referto inviato correttamente"
Else
MsgBox "Ehi Ciccio l'hai già spostato!!!", vbInformation, "Rimba..., se
nonci fossi io!!"
End If
Name path2 As "C:\" & Lettera & "\" & Me.Cognome & " " & Me.Nome & " " &
Me.Progressivo_Manuale & ".rtf"
End Sub
Checco


Ho risolto cosě!
Private Sub ArA_Click()
On Error GoTo ArA_Err
Dim path
Dim path2
Dim Lettera As String
Lettera = Left(Cognome, 1)
path = "C:\" & Lettera & "\" & Me.Cognome & " " & Me.Nome & " " &
Me.Progressivo_Manuale & ".rtf"
path2 = "C:\" & Me.Cognome & " " & Me.Nome & " " & Me.Progressivo_Manuale &
".rtf"
If Dir(path) <> "" Then
If Dir(path2) <> "" Then
Kill path
End If
End If
Name path2 As "C:\" & Lettera & "\" & Me.Cognome & " " & Me.Nome & " " &
Me.Progressivo_Manuale & ".rtf"
MsgBox "Archiviazione completata con successo"
ArA_Exit:
    Exit Sub
ArA_Err:
    MsgBox Error$
    Resume ArA_Exit
End Sub
 
Eh eh! Stiamo perdendo colpi Massi! ;o))))
SKERZO! Oh ancora non mi aiuti piů! Pover'a te! ;o))))
Checco


 Checco
Checco Checco...
MAssimiliano


 Name path2 as path
Ho provato ma non andava lo stesso! :o(
Checco ;o)
