Option Explicit Const cstBATCH = "#BATCH " Const cstINSPEC = "#INSPEC " Call WriteFiles("H:") Function WriteFiles(argPath) Dim objFso, objTextFile, colFile Set objFso = CreateObject("Scripting.FileSystemObject") For Each colFile in objFso.GetFolder(argPath).Files If UCase(objFso.GetExtensionName(colFile.Path)) = "EXP" Then Set objTextFile = objFso.CreateTextFile(Mid(colFile.Path, 1,_ InStrRev(colFile.Path, Chr(46))) & "TXT", True) objTextFile.WriteLine cstBATCH & Split(colFile.Name, Chr(45))(0) &vbCrLf&_ cstINSPEC & Split(colFile.Name, Chr(45))(1) objTextFile.Close Set objTextFile = Nothing End If Next Set objFso = Nothing End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDésolé mais je ne comprend pas trop comment programmer en VBS car je n'ai aucune notion de ce type de langage de programmation.