Question

我有一个PowerShell脚本，我使用Excel从VBA调用。该脚本使用WinSCP下载一些日期时间命名的FTP和SFTP文件，并使用静态文件名保存它们，覆盖旧文件，在网络驱动器位置。

该脚本在首次运行时工作，但之后它会加载该文件的相同缓存版本。解决方法是更改IE中的缓存设置，以便在每次访问网页时检查存储的网页的更新版本。

宏被几个人使用，可以使用各种计算机访问。有没有办法解决这个问题，我可以在我的代码中加入VBA或PS，这样他们就不必记得进入IE更改设置了？

从VBA调用脚本：

 Call Shell("powershell -executionpolicy bypass & ""H:\FTP\FTP.ps1""", vbHide)

脚本：

try
{
    # Load WinSCP .NET assembly
    Add-Type -Path "C:\Program Files (x86)\WinSCP\WinSCPnet.dll"
    $localPath = "H:\Worksheets\FTP"
    $remotePath = "/outgoing/data/LatestData/"
    # Setup session options
    $sessionOptions = New-Object WinSCP.SessionOptions
    $sessionOptions.Protocol = [WinSCP.Protocol]::ftp
    $sessionOptions.HostName = 
    $sessionOptions.UserName = 
    $sessionOptions.Password = 

    $session = New-Object WinSCP.Session

    try
    {
        # Connect
        $session.Open($sessionOptions)

        # Get list of files in the directory
        $directoryInfo = $session.ListDirectory($remotePath)

        # Select the most recent file
        $latest = $directoryInfo.Files |
            Where-Object { -Not $_.IsDirectory} |
            Where-Object {
                [System.IO.Path]::GetExtension($_.Name) -eq ".nc1" -or
                [System.IO.Path]::GetExtension($_.Name) -eq ".ky1" -or
                [System.IO.Path]::GetExtension($_.Name) -like ".tn*" }

        Group-Object { [System.IO.Path]::GetExtension($_.Name) } | 
            ForEach-Object{ 
                $_.Group | Sort-Object LastWriteTime -Descending | Select -First 1
            }

        $extension = [System.IO.Path]::GetExtension($latest.Name)
        "GetExtension('{0}') returns '{1}'" -f $fileName, $extension 

        if ($latest -eq $Null)
        {
            Write-Host "No file found"
            exit 1
        }

        $latest | ForEach-Object{
            $extension = ([System.IO.Path]::GetExtension($_.Name)).Trim(".")
            $session.GetFiles($session.EscapeFileMask($remotePath + $_.Name), "$localPath\$extension.txt" ).Check()
        }

        $stamp = $(Get-Date -f "yyyy-MM-dd-HHmm")
        $filename = $stamp.subString(0,$stamp.length-6)
        $session.GetFiles(
            ($remotePath + $fileName),
            ($localPath + $fileName + "." + $stamp)).Check()
    }
    finally
    {
        # Disconnect, clean up
        $session.Dispose()
    }

    exit 0
}
catch [Exception]
{
    Write-Host $_.Exception.Message
    exit 1
}

禁用下载缓存的FTP文件

0 个答案: