【新手提问】如何在VB程序里实现DOS拷贝？

Question

为什么还要DOS拷贝？什么意思
不太明白
你用VB，自然是写Windows下面的东西，既然写Windows下面的东西，当然是用Windows的API，而且VB本身也提供这样的功能啊

Answer 1

:) 谢谢。我说的就是拷贝。用API或者VB自带的都可以。只是我不知道是什么函数...:(    也不知道怎么获取目录下所有的文件。

Answer 2

如果你要快速copy文件夹，那么可以使用SHFileOperation api函数。
给你一个例子：
'Example Name:How to Copy or Move an Entire Directory using the API '------------------------------------------------------------------------------
'
' BAS Moduel Code
'
'------------------------------------------------------------------------------
Option ExplicitPublic Type SHFILEOPSTRUCT
   hWnd        As Long
   wFunc       As Long
   pFrom       As String
   pTo         As String
   fFlags      As Integer
   fAborted    As Boolean
   hNameMaps   As Long
   sProgress   As String
 End Type
  
Public Const FO_MOVE As Long = &H1
Public Const FO_COPY As Long = &H2
Public Const FO_DELETE As Long = &H3
Public Const FO_RENAME As Long = &H4Public Const FOF_SILENT As Long = &H4
Public Const FOF_RENAMEONCOLLISION As Long = &H8
Public Const FOF_NOCONFIRMATION As Long = &H10
Public Const FOF_SIMPLEPROGRESS As Long = &H100
Public Const FOF_ALLOWUNDO As Long = &H40Public Declare Function GetTempPath Lib "kernel32" _
     Alias "GetTempPathA" _
    (ByVal nSize As Long, ByVal lpBuffer As String) As LongPublic Declare Function SHFileOperation Lib "shell32" _
    Alias "SHFileOperationA" _
    (lpFileOp As SHFILEOPSTRUCT) As Long
  
'we'll use Brad's Browse For Folders Dialog code to 
'enable the user to pick the source and destination folders. Public Declare Function SHGetPathFromIDList Lib "shell32" _
    Alias "SHGetPathFromIDListA" _
    (ByVal pidl As Long, ByVal pszPath As String) As Long
       
Public Declare Function SHGetSpecialFolderLocation Lib "shell32" _
    (ByVal hwndOwner As Long, _
     ByVal nFolder As Long, _
     pidl As Long) As Long
   
Public Declare Function SHBrowseForFolder Lib "shell32" _
    Alias "SHBrowseForFolderA" _
    (lpBrowseInfo As BROWSEINFO) As Long
   
Public Type BROWSEINFO
   hOwner           As Long
   pidlRoot         As Long
   pszDisplayName   As String
   lpszTitle        As String
   ulFlags          As Long
   lpfn             As Long
   lParam           As Long
   iImage           As Long
End Type
   
Public Const ERROR_SUCCESS As Long = 0
Public Const CSIDL_DESKTOP As Long = &H0   
Public Const BIF_RETURNONLYFSDIRS As Long = &H1
Public Const BIF_STATUSTEXT As Long = &H4
Public Const BIF_RETURNFSANCESTORS As Long = &H8
'--end block--'
'------------------------------------------------------------------------------
'
' Form Code
'
'------------------------------------------------------------------------------
Option Explicit'FO_FUNC - the File Operation to perform,
'determined by the type of SHFileOperation
'action chosen (move/copy)
Dim FO_FUNC As Long
 
'for ease of reading, constants are substituted
'for SHFileOperation numbers in code
Const FileMove As Integer = 1
Const FileCopy As Integer = 2
  
'Check button index constants
Const optSilent As Integer = 0
Const optNoFilenames As Integer = 1
Const optNoConfirmDialog As Integer = 2
Const optRenameIfExists As Integer = 3
Const optPromptMeFirst As Integer = 4'strings to hold the paths
Dim source As String
Dim destination As String
   Private Sub Form_Load()   Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
   Option1(FileCopy).Value = True
   
   Command1(0).Caption = "Select Source"
   Command1(1).Caption = "Select Target"
   Command2.Caption = "Perform Action"
   Command3.Caption = "End"
         
End Sub
Private Sub Command1_Click(Index As Integer)   Dim tmp As String
   
   Select Case Index
      Case 0:
         tmp = GetBrowseFolder("Select the SOURCE to move or copy:")
         
         If tmp > "" Then
            source = tmp
            Text1.Text = source
         End If
    
      Case 1:
         tmp = GetBrowseFolder("Select the folder DESTINATION:")
         
         If tmp > "" Then
            destination = tmp
            Text2.Text = destination
         End If
         
   End SelectEnd Sub
Private Sub Command2_Click()   Dim msg As String
   Dim action As Boolean
   
  'First, assume the user WILL want to perform the
  'action, in case they don't want prompting
   action = True
   
  'check if they've asked to be prompted about the action...
   If Check1(optPromptMeFirst).Value = 1 Then
   
      msg = "You have chosen to move or copy the folder and contents of :" & vbCrLf
      msg = msg & source & vbCrLf & vbCrLf
      msg = msg & "to the destination:" & vbCrLf
      msg = msg & destination & vbCrLf & vbCrLf
      msg = msg & "Are you sure that you want to proceed with this action?"
  
    'since they want to be prompted, set the action
    'based on their response to a messagebox.
    '
    'Two buttons are presented - Yes and No.
    '
    'If No is selected, the the return value from the
    'messagebox is vbNo. When that is compared with
    'vbYes in the expression, the result is FALSE, therefore
    'the action variable will be set to false.
    '
    'If Yes is selected, the the return value from the
    'messagebox is vbYes, which equals vbYes, therefore
    'the expression will return TRUE to the action variable
     action = MsgBox(msg, vbExclamation Or vbYesNo, "Warning") = vbYes
      
   End If
   
   If action = True Then 
      PerformShellAction source, destination
   End If
   
End Sub
Private Sub Command3_Click()   Unload Me
   
End Sub
Private Sub Option1_Click(Index As Integer)  'set the file action flag
   FO_FUNC = CLng(Index)End Sub
Public Function PerformShellAction(sSource As String, _
                                   sDestination As String) As Long   Dim FOF_FLAGS As Long
   Dim SHFileOp As SHFILEOPSTRUCT
   
  'terminate the folder string with a pair of nulls
   sSource = sSource & Chr$(0) & Chr$(0)
  
  'determine the user's options selected
   FOF_FLAGS = BuildBrowseFlags()
  
  'set up the options
   With SHFileOp
      .wFunc = FO_FUNC
      .pFrom = sSource
      .pTo = sDestination
      .fFlags = FOF_FLAGS
   End With
  
  'and perform the chosen copy or move operation
   PerformShellAction = SHFileOperation(SHFileOp)End Function
Private Function BuildBrowseFlags() As Long 'Iterate through the options, and build 
 'the flag variable according to the user selection.  Dim flag As Long
   
 'these can be multiple
  If Check1(optSilent).Value Then flag = flag Or FOF_SILENT
  If Check1(optNoFilenames).Value Then flag = flag Or FOF_SIMPLEPROGRESS
  If Check1(optNoConfirmDialog).Value Then flag = flag Or FOF_NOCONFIRMATION
  If Check1(optRenameIfExists).Value Then flag = flag Or FOF_RENAMEONCOLLISION
  
  BuildBrowseFlags = flagEnd Function
Private Function GetBrowseFolder(msg) As String   Dim pidl As Long
   Dim pos As Integer
   Dim path As String
   Dim bi As BROWSEINFO
  
  'Fill the BROWSEINFO structure with the needed data,
  'show the browse dialog, and if the returned value
  'indicates success (1), retrieve the user's
  'selection contained in pidl   
   With bi
      .hOwner = Me.hWnd
      .pidlRoot = CSIDL_DESKTOP
      .lpszTitle = msg
      .ulFlags = BIF_RETURNONLYFSDIRS
   End With   pidl = SHBrowseForFolder(bi)
 
   path = Space$(512)
     
   If SHGetPathFromIDList(ByVal pidl, ByVal path) = 1 Then
      pos = InStr(path, Chr$(0))
      GetBrowseFolder = Left(path, pos - 1)
   End IfEnd Function

Answer 3

我想获取文件夹下所有的文件名，再进行处理，不是拷贝整个文件夹啊............//thx again

Answer 4

那么你就用fso对象对某个目录下的所有文件进行遍历，取得所有文件的名字

Answer 5

谢谢。能不能就fso说得详细一点？
除了fso，有没有别的方法啊？

Answer 6

工程-》引用-》microsoft scripting runtime在给你一个函数，当然这个函数不是很好，但是很简单：
只要给出一个文件夹路径，就能枚举里面的所有文件名
Private Sub Show_all_Folder_and_File2(path As String)
    Dim fl1 As Folder, fl2 As Folder
    Dim file1 As File
    Dim fso  As FileSystemObject
    Set fso = New Scripting.FileSystemObject
    Set fl2 = fso.GetFolder(path)
    For Each fl1 In fl2.SubFolders
        Show_all_Folder_and_File2 fl1.path
    Next
    For Each file1 In fl2.Files
        Combo1.AddItem file1.Name
    Next
    Set fso = Nothing
End Sub

Answer 7

谢谢。但是在我的环境里面：
Win2000AS，VB6sp5，对一些从UNIX下导出的文件进行上述处理（使用一些最基本的FSO处理）之后，发现文件的回车和换行发生了改变。VB不能正常识别回车换行了。由于涉及到操作系统之间的问题，很难判断症结所在，我才想用另外的方式进行处理。

Answer 8

我想问一下在你使用vb对文件进行处理之前，你看看文件是否正常，如果已经是不正常了，那么说明这并不是vb的问题？

Answer 9

嗯...文件是正常的。我自己在Win2000下手工改文件名，拷贝，VB的识别是正常的。通过fso之后却不行......我觉得是不是fso对不同的操作系统（文件格式）支持不好？

Answer 10

具体什么个原因我说不大清楚，但是我觉得，应该不会的
实在不行，就使用api函数进行处理 
你可以查一下msdn用这个查
”File I/O Functions“
里面包含了几乎所有的文件操作

Answer 11

不用什么API，直接COPYFILE就可以。COPYFILE（源路径，目标路径）

Answer 12

用Shell"Xcopy 源文件 目标文件",vbhide 不就得了。
在98/Me/2000/XP下均可使用