title image


Smiley Immer noch die rekursive Filesuche...
Anscheinend fragst Du immer dieselbe Frage in gewissen Abständen nochmals...



Mit der Scripting Runtime funktioniert das z. B. so. Du müsstest natürlich noch den Code von VB6 auf VBS ändern:



Option Explicit



Private Sub Command1_Click()

Dim fso As New FileSystemObject

Dim fld As Folder

Dim sfld As Folder

Dim fil As File



Set fld = fso.GetFolder("d:\")



Call Filesearch(fld)



End Sub





Function Filesearch(fld As Folder)



Dim fso As New FileSystemObject

Dim sfld As Folder

Dim fil As File

Dim strArrFolder() As String



On Error Resume Next



If fld Is Nothing Then Exit Function



For Each sfld In fld.SubFolders



For Each fil In sfld.Files

strArrFolder() = Split(fil, "\")

If strArrFolder(UBound(strArrFolder()) - 1) = "xcy" Then

If Right(strArrFolder(UBound(strArrFolder())), 4) = ".pdf" Then

fil.Copy ("d:\abc\")

End If

End If

Next



Call Filesearch(sfld)

Next



Form1.Refresh



End Function

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: