Имеется директория и в ней файлы
-----------------------------
директория
|
файлы:
Вася_2.dft
Коля_1.dft
Саша_5.dft
Маша_4.dft
-----------------------------
(
Имена файлов не постояны, каждый раз создаются новые)
Требуется создать файл (Имя.ord), внутри которого будет -
'------------------------------
@M=14(число-перем-1) @T=1.5000(число-перем-2)
- Вася_2.dft" 2
- Коля_1.dft" 1
- Саша_5.dft" 5
- Маша_4.dft" 4
'=====================================
'=====================================
'=====================================
Как закинуть в файл известное понятно, а как записать меняющиеся файлы, иногда их пять, иногда двадцать и имена разные.
Напротив файла стоит число, которое должно быть равно числу в имени файла!
Помогите, пожалуйста!!!!!!!!!!?
====================================
===================================
Dim msg As String
Dim sPath As String
Dim order As Integer
Dim число-перем-1 As Double
Dim число-перем-2 As Double
'----------------
Dim fs, a, f, v, r, fn
order = Sheet1.Cells(3, 12)
число-перем-1 = Sheet1.Cells(5, 2)
число-перем-1 = Sheet1.Cells(5, 3)
----------------------------------------
sPath = "C:\Metalix\P\Autonest\" & order & ".ord"
Set fn = CreateObject("Scripting.FileSystemObject")
If fn.FileExists(sPath) Then
Kill (sPath)
End If
'--------------------
msg = (Chr(34) & "@M=" & число-перем1 & Chr(34) & "@T=" & число-перем-2
?????????????????????????????????????
????????????????????????????????????
??????????????????????????????????????
?????????????????????????????????????? )
'------------------------------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists(sPath) Then
fs.CreateTextFile sPath
DoEvents
End If
'----------------------------------------------------
Set f = fs.GetFile(sPath)
Set v = f.OpenAsTextStream(ForAppending)
If Not Sheet4.Cells(i, 8) = 25 Then
v.WriteLine msg
End If
v.Close
DoEvents
Set v = Nothing
Set f = Nothing
Set fs = Nothing
'--------------------
End If
'--------------------
End Sub
