Vbscript
ID #1062
Modifier l'attribut de fichiers
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
'-------------------------------------------------------------
'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
Tags: -
Related entries:
Auteur: Michel Preti
Révision: 1.0
Vous ne pouvez pas commenter cet enregistrement