FAQ VBScriptConsultez toutes les FAQ

1
2
3
Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
MsgBox oFSO.FileExists("c:\tmp\Fichier1.txt")

1
2
3
4
5
6
7
8
9
Dim stRep 'Nom du répertoire à parcourir 
Dim oFSO,oFl 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
stRep = "C:\Tmp" 
If oFSO.FolderExists(stRep) Then 
 For each oFl in  oFSO.GetFolder(stRep).Files 
   Wscript.Echo oFl.Name	 
 Next 
End If

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim stFichier 'Nom du Fichier a tester  
Dim oFSO,oFl 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
stFichier = "c:\tmp\Nouveau Document texte.txt" 
If oFSO.FileExists(stFichier) Then 
Set oFl = oFSO.GetFile(stFichier) 
  MsgBox "Attributes  :" & oFl.Attributes  & vbCrlf & _  
         "DateCreated :" & oFl.DateCreated  & vbCrlf & _  
         "DateLastAccessed :" & oFl.DateLastAccessed  & vbCrlf & _  
         "DateLastModified :" & oFl.DateLastModified  & vbCrlf & _  
         "Drive :" & oFl.Drive  & vbCrlf & _  
         "Name :" & oFl.Name  & vbCrlf & _  
         "ParentFolder :" & oFl.ParentFolder  & vbCrlf & _  
         "Path :" & oFl.Path  & vbCrlf & _  
         "ShortName :" & oFl.ShortName  & vbCrlf & _  
         "ShortPath :" & oFl.ShortPath  & vbCrlf & _  
         "Size :" & oFl.Size  & vbCrlf & _  
         "Type :" & oFl.Type   
  
End If

1
2
3
4
5
6
7
8
9
stRep="d:\MesPhotos"  
stFichier ="photo.jpg"  
Set oShell = CreateObject("Shell.Application") 
Set oFolder = oShell.Namespace(stRep) 
Set oFichier = oFolder.Items.Item(stFichier) 
'Affiche les propriétés étendues du fichier 
For i = 0 to 34 
 Wscript.Echo  "[" & i &  "] " & oFolder.GetDetailsOf(oFolder.Items, i  ) & " : " & oFolder.GetDetailsOf(oFichier, i) 
Next

1
2
3
Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
oFSO.CopyFile "c:\tmp\Fichier1.txt","c:\tmp\Fichier2.txt",True ' True : pour copier en "écrasant" destination si existe..

1
2
3
4
Dim oFS,oFl 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFl = oFSO.GetFile("c:\tmp\Fichier1.txt") 
oFl.Copy "c:\tmp\fichier3.txt",False ' Le paramétre "Force" à False n'autorise pas d'effacer les fichiers  en lectures seules.

1
2
3
Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
oFSO.DeleteFile "c:\tmp\fichier1.txt",True  ' Le paramétre "Force" à true permet d'effacer les fichiers en lectures seules.

1
2
3
4
Dim oFS,oFl 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFl = oFSO.GetFile("c:\tmp\Fichier1.txt") 
oFl.Delete False ' Le paramétre "Force" à False n'autorise pas d'effacer les fichiers et répertoires  en lectures seules.

1
2
3
Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
oFSO.MoveFile "c:\tmp\Fichier1.txt","c:\tmp\fichier2.txt"

1
2
3
4
Dim oFS,oFl 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFl = oFSO.GetFile("c:\tmp\Fichier1.txt") 
oFl.Move "D:\tmp\fichier2.txt" ' Déplacement vers autre unité de disque tout en renommant le fichier...

1
2
3
4
5
6
7
8
9
Const ForReading = 1, ForWriting = 2  
Dim oFso, f 
  
Set oFso = CreateObject("Scripting.FileSystemObject") 
Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading) 
while Not f.AtEndOfStream  
    wscript.echo f.ReadLine 
Wend 
f.Close

1
2
3
4
5
6
7
Const ForReading = 1, ForWriting = 2  
Dim oFso, f  
  
Set oFso = CreateObject("Scripting.FileSystemObject")  
Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)  
Wscript.echo f.ReadAll  
f.Close

1
2
3
Const TristateTrue = -1 
  
set f = fso.opentextfile("c:\MonFichier.txt", 1, true,TristateTrue)

1
2
3
4
5
6
 Const ForWriting = 2 
Dim fso, f    
  
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true) 
f.write("Salut")

1
2
3
4
5
6
7
8
Const ForReading = 1, ForWriting = 2  
Dim oFso, f 
Dim ts, nl 
  
Set oFso = CreateObject("Scripting.FileSystemObject") 
Set f = oFso.OpenTextFile("c:\test1.txt", ForReading) 
ts = f.ReadAll '-- Lit la totalité du fichier 
Wscript.echo f.Line    '-- Récupère le nombre de lignes

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim oFSO,oFld 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
stRep = "d:\users" 
LectRep stRep  
  
' 
' Fonction récursive de parcours de répertoire 
' 
Sub LectRep (stR ) 
 For each oFld in  oFSO.GetFolder(stR).SubFolders 
   Wscript.Echo "--------------- " & oFld.PAth & "-----------------" 
   ListeFichier (oFld.PATH)    
   LectRep oFld.PATH 
 Next 
end sub 
' 
' Listing des fichiers du répertoire 
' 
Sub ListeFichier (stR) 
 For each oFl in  oFSO.GetFolder(stR).Files 
   Wscript.Echo oFl.Name	 
 Next 
End sub