9/4/2019 10:40 AM | |
Posts: 1 Rating: (0) |
any help! theres no error in my script the problem is when i run simulation the file did not create Sub verifier() Dim FolderWay, ObjectWay, FileName, File, FileExist, Apendix, Row 'folder way FolderWay = "C:\Users\Hamza\OneDrive\Bureau\STAGE" 'creating of object containing way to folder If ObjectWay.FolderExists(FolderWay)<> 0 Then ObjectWay.CreateFolder(FolderWay) End If 'Define file name FileName = "Archive.csv" 'create new object to controlfile existence Set File = CreateObject ("Scripting.FileSystemObject") 'Check if file exist in the way FileExist = File.FileExists(FolderWay & "\" & FileName) If FileExist = False Then 'Create file File.CreateTextFile(FolderWay & "\" & FileName) 'Set apendix of excel file Set Apendix = File.OpenTextFile(FolderWay & "\" & FileName,8) Apendix.WriteLine(" Nombre de tuyaux ; Numéro de tuyau ; Diamétre de tuyau; Code cellule; Numéro de Moule ") Apendix.Close 'clear object Set File = Nothing End If Set File=CreateObject("Scripting.fileSystemObject") Set Row=File.OpenTextFile(FolderWay & "\" & FileName,8) Row.WriteLine(SmartTags ("donnee1") & ";" & SmartTags ("donnee2") & ";" & SmartTags ("donnee3") & ";" & SmartTags ("donnee4") & ";" & SmartTags ("donnee5")) Row.Close End Sub ------------------------------------------------------------------------------------------ |
Last edited by: Jen_Moderator at: 09/04/2019 11:56:47New subject after splitting |
|
Follow us on