wmz 发表于 2007-4-3 12:41:00

请教文件拷贝

请教各位大侠:请将这段VB代码改编成Delphi的
Private Sub Command1_Click()
   Dim a As String, b As String
   Dim f As FileSystemObject
   Set f = CreateObject("Scripting.FileSystemObject")
   a = "c:\wmz\*.*": b = "c:\wmz1"
   f.CopyFile a, b, False
End Sub
页: [1]
查看完整版本: 请教文件拷贝