Comment puis-je passer les indicateurs d'option de Dossier.CopyHere dans PowerShell?

Vous pouvez utiliser 4 -bor 16. Il est difficile de dire ce que cette méthode attend depuis l'est de type VARIANT. J'ai pensé qu'il serait prendre une valeur entière. Si cela ne fonctionne pas, ce commentaire du Rubrique MSDN sur Dossier.CopyHere implique qu'une chaîne de travail:

function CopyFileProgress
{
    param( $Source, $DstFolder, $CopyType = 0 )

    # Convert the decimal to hex
    $copyFlag = [String]::Format("{0:x}", $CopyType)

    $objShell = New-Object -ComObject "Shell.Application"
    $objFolder = $objShell.NameSpace($DestLocation) 
    $objFolder.CopyHere($Source, $copyFlag)
}

Bien que je me demande si la chaîne de format doit être "0x{0:x}"?

Juste être conscient que pour la normale .NET drapeaux style enums, vous pouvez passer plusieurs drapeaux aux une .NET (ou paramètre de commande) qui est fortement typé enum comme suit:

$srv.ReplicationServer.Script('Creation,SomeOtherValue')

Oisin a écrit quelques infos sur ce sujet dans ce post de blog.

OriginalL'auteur Keith Hill

La Folder.CopyHere indicateurs d'option peut simplement pas de travail. Cela me rend triste. Je vais avoir à enquêter sur l'une de ces méthodes, ce qui laisse m'en un peu coincée.

Processus Distinct

Invoquer le copier dans un nouveau processus et masquer la fenêtre à l'aide de la ProcessStartInfo propriétés. Je n'ai pas encore mis en œuvre cette encore, mais je me demande si elle va de l'adresse de l'utilisateur d'une demande d'écraser des fichiers existants?

Dim iProcess As New System.Diagnostics.ProcessStartInfo(AppDomain.CurrentDomain.BaseDirectory + “unzip.exe”)

iProcess.CreateNoWindow = True
Dim sArgs As String = ZippedFile
iProcess.Arguments = sArgs
iProcess.WindowStyle = ProcessWindowStyle.Hidden
Dim p As New System.Diagnostics.Process
iProcess.UseShellExecute = False
p = System.Diagnostics.Process.Start(iProcess)
p.WaitForExit(30000)
Dim s As Integer = p.ExitCode
iProcess.UseShellExecute = True

p.Dispose()
iProcess = Nothing

Pour La Boucle

Seulement copie des éléments non existants. Cela semble tomber quand je veux mettre à jour une police avec un nouveau fichier de police du même nom.

foreach($File in $Fontdir) {
    $fontName = $File.Name.Replace(".ttf", " Regular")
    $objFolderItem = $objFolder.ParseName($fontName);
    if (!$objFolderItem) {
      $objFolder.CopyHere($File.fullname,0x14)
    }
}

Supprimer Les

Je suis en train de penser de la suppression de toutes les polices du même nom que ceux que je suis la copie, la copie de l'ensemble. Même si c'est un peu brutal. Et je crois qu'il y a un autre invite si la police ne peut pas être supprimé car il est en cours d'utilisation. soupir

OriginalL'auteur Anthony Mastrean

J'en vois un certain nombre de Décompresser le dossier des opérations, mais pas vraiment d'une écriture d'une solution pour le dossier Fonts de la situation. J'ai donc écrit mon propre! Il s'avère que le dossier Polices ne mettre en œuvre la Coquille.Dossier.CopyHere méthode, mais ne prend pas en compte les surcharges dépassé pour la deuxième argument de la méthode. Pourquoi? Qui sait! Je soupçonne Raymond Chen de "Le Vieux Chose de nouveau' Windows Développeur blog pourrait l'expliquer, mais je ne sais pas la réponse. Nous avons donc besoin de place intelligemment nos polices avant d'essayer de les copier, ou nous allons obtenir un message méchant.

Dans mon code, nous vérifions pour voir une police existe ou non en cochant pour un match sur les quatre premiers caractères du nom de la police avec une recherche de génériques. Si la police n'existe pas, nous supposons que c'est la première fois que nous faisons l'installation des polices sur ce système et de définir un indicateur spécial appelé $FirstInstall.

Dans le script, si $FirstInstall est vrai, nous installer toutes les polices dans le source de répertoire de police. Sur les exécutions suivantes, nous vérifions pour voir si chaque police est un match, et si oui, de nous abandonner cette copie. Si non, nous devons aller de l'avant et de copie. Cela semble fonctionner pour la plupart de mes clients, jusqu'à présent.

Ici vous allez!

    <#
.SYNOPSIS
    Script to quietly handle the installation of fonts from a network source to a system

.DESCRIPTION
    We Can't just move files into the %windir%\Fonts directory with a script, as a simple copy paste from command line doesn't trigger windows to note the new font
If we used that approach, the files would exist within the directory, but the font files woudln't be registered in windows, nor would applications 
display the new font for use.  Instead, we can make a new object of the Shell.Application type (effectively an invisible Windows Explorer Windows) and use its Copy method
Which is the functional equivalent of dragging an dropping font files into the Font folder, which does trigger the font to be installed the same as if you right clicked the font
and choose install.

.PARAMETER FontPath
    The path of a folder where fonts reside on the network

.EXAMPLE
    .\Install-Fonts.ps1 -FontPath "\\corp\fileshare\Scripts\Fonts"

    Installing font...C:\temp\Noto\NotoSans-Bold.ttf
    Installing font...C:\temp\Noto\NotoSans-BoldItalic.ttf
    Installing font...C:\temp\Noto\NotoSans-Italic.ttf
    Installing font...C:\temp\Noto\NotoSans-Regular.ttf

    In this case, the fonts are copied from the network down to the system and installed silently, minus the logging seen here
    import files needed for step 1, step 2, and step 5 of the migration process.

.EXAMPLE
    .\Install-Fonts.ps1 -FontPath "\\corp\fileshare\Scripts\Fonts"

    Font already exists, skipping
    Font already exists, skipping
    Font already exists, skipping
    Font already exists, skipping
    In this case, the fonts already existed on the system.  Rather than display an annoying 'Overwrite font' dialog, we simply abort the copy and try the next file


.INPUTS
    String.

.OUTPUTS
    Console output

.NOTES
    CREATED: 06/11/2015
    Author: [email protected]

    MODIFIED:06/11/2015
    Author: [email protected]   -Reserved...

#> 
param
    ( 
        [Parameter(Mandatory)][string]$FontPath="C:\temp\Noto" 
    ) 

#0x14 is a special system folder pointer to the path where fonts live, and is needed below. 
$FONTS = 0x14

#Make a refrence to Shell.Application
$objShell = New-Object -ComObject Shell.Application
$objFolder = $objShell.Namespace($FONTS)

ForEach ($font in (dir $fontsPath -Recurse -Include *.ttf,*.otf)){

    #check for existing font (to suppress annoying 'do you want to overwrite' dialog box
    if ((($objShell.NameSpace($FONTS).Items() | where Name -like "$($font.BaseName.Split('-')[0].substring(0,4))*") | measure).Count -eq 0){
        $firstInstall = $true}

    if ($firstInstall -ne $true) {Write-Output "Font already exists, skipping"}

        else{    
        $objFolder.CopyHere($font.FullName)
        Write-Output "Installing font...$($font.FullName)"
        $firstInstall = $true
        }

    }

.\Install-Fonts.ps1 -FontPath "\\corp\fileshare\Scripts\Fonts"

OriginalL'auteur FoxDeploy

Je viens de recevoir cela fonctionne simplement à l'aide de + c'est à dire

function Expand-ZIPFile($file, $destination)
{
    $shell = new-object -com shell.application
    $zip = $shell.NameSpace($file)
    foreach($item in $zip.items())
    {
        $shell.Namespace($destination).copyhere($item, 16+1024)
    }
} 

OriginalL'auteur iamkrillin