niccolo84 (Normal User)
Newbie
Messaggi: 11
Iscritto: 31/05/2010
|
Questo codice copia tutti i file .txt contenuti nella cartella C:\ nella cartella "c:\prova".
Il comando CopyFile trova e copia i file txt contenuti solo nella cartella indicata. Come
faccio a fargli copiare tutti i file txt, cioè anche nelle sottocartelle di "c:\"?
Forse con il comando GetDirectories? come si fa?
Codice sorgente - presumibilmente VB.NET |
Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click spostaGruppoFile("*.txt", "C:\", "C:\prova\") End Sub End Class Module Utility Public Sub spostaGruppoFile(ByVal nomeFile As String, ByVal dir1 As String, ByVal dir2 As String) ' creazione array con elenco file *.txt: Dim d As New DirectoryInfo(dir1) Dim f As FileInfo() = d.GetFiles(nomeFile) ' ciclo di spostamento: For Each fNext In f My.Computer.FileSystem.CopyFile(dir1 & fNext.Name, dir2 & fNext.Name) Next End Sub End Module
|
Ultima modifica effettuata da niccolo84 il 31/05/2010 alle 20:36 |