Business Intelligence et techniques avec Michel Preti

ID #1062

Option Explicit
'-------------------------------------------------------------
'VBScript   : Modifier_attribut_fichier.vbs
'Description: Script permettant de rendre un fichier en écriture ou en lecture
'                  Exemple d'appel: C:\Modifier_attribut_fichier.vbs C:\test.txt lecture
'Création   : 2006.08.22 Michel Preti
'-------------------------------------------------------------
Call Modifier_attribut_fichier

Public Sub Modifier_attribut_fichier()

    Dim argObj
    Dim objFSO
    Dim objFile
    Dim strAttribut

    Set argObj = WScript.Arguments
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(argObj(0))

    strAttribut = argObj(1)    
    strAttribut = TRIM(UCASE(strAttribut))

    SELECT CASE strAttribut
         CASE "ECRITURE"
    objFile.Attributes = 32
         CASE "LECTURE"
    objFile.Attributes = 33
    END SELECT

    Set objFile = Nothing
    Set objFSO = Nothing

End Sub

Merci de noter cette entrée:

Moyenne des notes: 0 sur 5 (0 Votes)

complètement inutile 1 2 3 4 5 indispensable

commenter cet article

Votre nom:
Votre adresse e-mail:
Votre commentaire:

Merci de saisir les caractères que vous lisez sur l'image.