使用 vbscripting 将文件从一个文件夹复制到另一个文件夹 [英] Copy a file from one folder to another using vbscripting

问题描述

谁能告诉我如何使用 vbscripting 将文件从一个文件夹复制到另一个文件夹我从互联网上提供的信息中尝试了以下一个.

Can anyone please tell me how to copy a file from one folder to another using vbscripting I had tried this below one from the information provide in the internet.

dim filesys

set filesys=CreateObject("Scripting.FileSystemObject")

If filesys.FileExists("c:\sourcefolder\anyfile.txt") Then

filesys.CopyFile "c:\sourcefolder\anyfile.txt", "c:\destfolder\"

当我执行这个时，我得到权限被拒绝.

When I execute this one, I get that the permission is denied.

推荐答案

试试这个.它将检查该文件是否已存在于目标文件夹中，如果存在，则将检查该文件是否为只读.如果文件是只读的，它会将其更改为可读写，替换该文件，然后再次将其设为只读.

Try this. It will check to see if the file already exists in the destination folder, and if it does will check if the file is read-only. If the file is read-only it will change it to read-write, replace the file, and make it read-only again.

Const DestinationFile = "c:\destfolder\anyfile.txt"
Const SourceFile = "c:\sourcefolder\anyfile.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
    'Check to see if the file already exists in the destination folder
    If fso.FileExists(DestinationFile) Then
        'Check to see if the file is read-only
        If Not fso.GetFile(DestinationFile).Attributes And 1 Then 
            'The file exists and is not read-only.  Safe to replace the file.
            fso.CopyFile SourceFile, "C:\destfolder\", True
        Else 
            'The file exists and is read-only.
            'Remove the read-only attribute
            fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes - 1
            'Replace the file
            fso.CopyFile SourceFile, "C:\destfolder\", True
            'Reapply the read-only attribute
            fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes + 1
        End If
    Else
        'The file does not exist in the destination folder.  Safe to copy file to this folder.
        fso.CopyFile SourceFile, "C:\destfolder\", True
    End If
Set fso = Nothing

这篇关于使用 vbscripting 将文件从一个文件夹复制到另一个文件夹的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！