title image


Smiley Mit dem FSO...
Verweis setzen auf die Microsoft Scripting Runtime ("Projekt", "Verweise") und dann:



Private Sub Command1_Click()

Dim fso As New FileSystemObject

Dim quellfld As Folder

Dim zielfld As Folder

Dim strQuellpfad As String

Dim strZielpfad As String



strQuellpfad = "d:\test\"

strZielpfad = "d:\johoho\"



Set quellfld = fso.GetFolder(strQuellpfad)



If fso.FolderExists(strZielpfad) = False Then

fso.CreateFolder (strZielpfad)

End If



Set zielfld = fso.GetFolder(strZielpfad)



quellfld.Copy zielfld



End Sub



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: