Condividi:        

Copiare tutti i file che finiscono con Web

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Copiare tutti i file che finiscono con Web

Postdi Statix » 02/07/17 22:23

Ciao a tutti,
avrei bisogno di un aiuto,
in una cartella chiamata Internazionale, ho circa 70 file
tra cui circa la metà finiscono con Web,
esempio ItaliaWeb oppure FranciaWeb,o CanadaWeb etc. etc
dovrei con una macro copiare tutti questi file che finiscono con Web e sostituirli nella cartella di nome Web,
attualmente copio a mano, ma ogni volta che aggiorno un archivio si rigenerano nuovi file,
che devono andare a sostituire quelli vecchi, la cartella Web può stare anche all'interno della cartella Internazionale.
grazie anticipate.
dimenticavo i file hanno estensione .xlsb
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Copiare tutti i file che finiscono con Web

Postdi Statix » 03/07/17 08:11

un altra valida alternativa,è quella che una volta aggiornato il file, esempio italiaweb.xlsb
venga copiato e messo nella cartella web sostituendo eventule file già presente,
la cartella principale è sul desktop di nome Internazionale in cui all'interno ci sono tutti i file ,programmi , fogli,
è anche la cartella Web.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Copiare tutti i file che finiscono con Web

Postdi Anthony47 » 05/07/17 01:57

dovrei con una macro copiare tutti questi file che finiscono con Web e sostituirli nella cartella di nome Web

un altra valida alternativa,è quella che una volta aggiornato il file, esempio italiaweb.xlsb
venga copiato e messo nella cartella web sostituendo eventule file già presente

Insomma vuoi prendere i file xyzWEB.xlsb dalla directory "C:\percorso\internazionale" e spostarli nella directory "C:\percorso\web"; o qualcos'altro?
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copiare tutti i file che finiscono con Web

Postdi Statix » 05/07/17 20:28

Ciao Anthony47,
si esatto

ho una cartella sul desktop di nome Internazionale,
dentro ci sono circa 30 programmi e 30 fileWeb.xls e una cartella di nome Web,
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Copiare tutti i file che finiscono con Web

Postdi patel » 06/07/17 07:57

Codice: Seleziona tutto
Sub copyfile()
Set fs = CreateObject("Scripting.FileSystemObject")
oldpath = "D:\DATI\prova" '<<<<<<<< da modificare
newpath = "D:\DATI\prova\textfile" '<<<<<<<< da modificare
Set f = fs.getfolder(oldpath)
Set NFile = f.Files
For Each pf1 In NFile
  NameFile = pf1.Name
  If InStr(NameFile, "web") > 0 Then
    filecopy oldpath & "\" & NameFile, newpath & "\" & NameFile
  End If
Next
End Sub
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: Copiare tutti i file che finiscono con Web

Postdi Statix » 06/07/17 20:38

Ciao patel,
ho provato ma mi da questo errore,


Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Copiare tutti i file che finiscono con Web

Postdi Anthony47 » 07/07/17 15:04

Mi sembra strano il percorso C:\Desktop\etc etc; secondo me te lo sei inventato :D
Il desktop appartiene all'utente corrente, quindi dovrebbe trovarsi (win 7) in
Codice: Seleziona tutto
C:\Users\NomeUtente\Desktop


Controlla quindi bene le tue definizioni.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copiare tutti i file che finiscono con Web

Postdi Statix » 07/07/17 15:43

Ciao Anthony,
ci ho provato ma non va,mi da l'errore in set f0getfolder(oldpath)
Codice: Seleziona tutto
Sub copyfile()

Set fs = CreateObject("Scripting.FileSystemObject")
oldpath = "C:\Documents and Setting\PA57\Desktop\Nazioni"
newpath = "C:\Documents and Setting\PA57\Desktop\Nazioni\Web\textfile" '<<<<<<<< da modificare
Set f = fs.getfolder(oldpath)
Set NFile = f.Files
For Each pf1 In NFile
  NameFile = pf1.Name
  If InStr(NameFile, "web") > 0 Then
    FileCopy oldpath & "\" & NameFile, newpath & "\" & NameFile
  End If
Next
End Sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Copiare tutti i file che finiscono con Web

Postdi Anthony47 » 07/07/17 19:42

Se leggi l'help on line del metodo GetFolder ti dice che "Se la cartella specificata non esiste, verrà generato un errore".
Infatti C:\Documents and Setting\ non esiste; prova con C:\Documents and Settings\
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copiare tutti i file che finiscono con Web

Postdi Statix » 07/07/17 20:29

Ciao Anthony,
adesso stò con un altro computer,
quindi cambia il percorso.
comunque ho modificato, lanciato la macro non succede nulla ,nessun tipo di errore,
ma non copia. uso windows10
la cartella Nazioni è sul desktop ed all'interno ci sono sia tutti i file che la cartella Web ,
dove andrebbero messi i file copiati.

Sub copyfile()

Codice: Seleziona tutto
Set fs = CreateObject("Scripting.FileSystemObject")
oldpath = "C:\Users\AP\Desktop\Nazioni"
newpath = "C:\Users\AP\Desktop\Nazioni\Web\textfile" '<<<<<<<< da modificare
Set f = fs.getfolder(oldpath)
Set NFile = f.Files
For Each pf1 In NFile
NameFile = pf1.Name
If InStr(NameFile, "web") > 0 Then
FileCopy oldpath & "\" & NameFile, newpath & "\" & NameFile
End If
Next
End Sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Copiare tutti i file che finiscono con Web

Postdi Statix » 07/07/17 20:45

ok risolto, bastava eliminare textfile

grazie Anthony47,
grazie anche a patel.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Copiare tutti i file che finiscono con Web

Postdi Statix » 08/07/17 09:41

ho modificato la macro per far sì che riconosca i file sia che terminano con Web che web.

Codice: Seleziona tutto
Sub copyfile

Set fs = CreateObject("Scripting.FileSystemObject")
oldpath = "C:\Users\AP\Desktop\Nazioni"
newpath = "C:\Users\AP\Desktop\Nazioni\Web"
Set f = fs.getfolder(oldpath)
Set NFile = f.Files
For Each pf1 In NFile
NameFile = pf1.Name
If InStr(NameFile, "web") > 0  or InStr(NameFile,"Web)>0 Then
FileCopy End Sub
oldpath & "\" & NameFile, newpath & "\" & NameFile
End If
Next
End Sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta


Torna a Applicazioni Office Windows


Topic correlati a "Copiare tutti i file che finiscono con Web":


Chi c’è in linea

Visitano il forum: Nessuno e 68 ospiti

cron