Kopioi kaikki samantyyppiset (esim. exe, jpg, html) tiedostot hakemistosta toiseen.
Peruskamaa, mutta tein kaverille ja ajattelin lisätä sitten tännekin, ettei mene hyvä koodi hukkaan ^_^
Niin, ja tämähän kopioi *kaikki* hakemiston tiedostot, jos FileSuffixiksi antaa "*".
Public Sub CopyAllFilesOfType(SourceDir As String, DestDir As String, FileSuffix As String)
Dim File As String
'Tarkistetaan, onko polun viimeinen merkki \, jos ei, niin lisätään se
If Right$(SourceDir, 1) <> "\" Then SourceDir = SourceDir & "\"
If Right$(DestDir, 1) <> "\" Then DestDir = DestDir & "\"
'Tarkistetaan, onko lähdehakemistoa olemassa, jos ei, poistutaan aliohjelmasta
If Dir$(SourceDir, vbDirectory) = "" Then Exit Sub
'Tarkistetaan, onko kohdehakemistoa olemassa, jos ei, luodaan sellainen
If Dir$(DestDir, vbDirectory) = "" Then MkDir DestDir
'Käydään kaikki hakemiston oikeanpäätteiset tiedostot läpi ja kopioidaan uuteen paikkaan
File = Dir$(SourceDir & "*." & FileSuffix)
Do While File <> ""
FileCopy SourceDir & File, DestDir & File
File = Dir
Loop
End Sub'Käyttö esim.
Private Sub Command1_Click()
CopyAllFilesOfType "C:\temp", "c:\temp\testi", "jpg"
End SubKiitos käyttöön tulee :)
Pistää ohjelman alussa kopsaan kaikki ocx tiedostot system32 -kansioon, niin ei tuu erroria
Tätä olen etsinyt
Aihe on jo aika vanha, joten et voi enää vastata siihen.