[dedmazai1870]

LepeT
dir /b/s "%temp%/*fgh*" >> cmds.txt
Так со всеми подпапками будет и независимо от регистра.((

[gora]

полный путь и имя файла по маске должно писаться в текстовой документ »

Код:

@Echo Off
(For /f "tokens=*" %%i In ('Dir /b /a-d "%TEMP%\*fgh*"') Do Echo %TEMP%\%%i)>cmds.txt
Exit

[LepeT]

Спасибо большое,а можно еще вопрос как указать после какой строчки должен создавать текст,к примеру мне нужно не в начале,а на 24 строке в текстовом документе

[gora]

к примеру мне нужно не в начале,а на 24 строке в текстовом документе »

Если я правильно понял, то нужно пропустить первые 23 строки вывода? Тогда так:

Код:

@Echo Off
(For /f "skip=23 tokens=*" %%i In ('Dir /b /a-d "%TEMP%\*fgh*"') Do Echo %TEMP%\%%i)>cmds.txt
Exit

[LepeT]

Да правильно,не выходит,он весь текстовой документ стирает и все

проще говоря мне нужно в текст длинной 50 строк вставить имена файлов,а именно что бы имена файлов начинались на 24 строке

[gora]

в текст длинной 50 строк »

Этот файл уже существует? В нем уже есть 50 строк? И приведите пример Вашего файла, если он существует до запуска скрипта, ибо его нужно обрабатывать.

что бы имена файлов начинались на 24 строке »

А если файлов будет найдено меньше 50-24=26 штук или наоборот больше 26 и весь файл станет длиннее 50 строк? Что нужно делать?

[LepeT]

Да файлов может быть от 2 до 5,если их много то при вставке и общее количество строк будет больше,к примеру 5 файлов - 5 строк,их нужно вставить после 23,а после что бы продолжался остальной текст в итоге будет 55 строк

Я пробовал и с текстовом документом где уже есть текст и пробовал так что бы он сам его создавал,все равно 0 кб.

[gora]

LepeT,

приведите пример Вашего файла »

Заархивируйте его и прикрепите к посту.

[LepeT]

это vbs скрипт

Код:

Option Explicit
 
Const SHCONTF_NONFOLDERS    = &H00040
Const SHCONTF_INCLUDEHIDDEN = &H00080
 
 
Dim arrFiles
Dim strFTPFolder
 
Dim objFSO
Dim objShell
 
Dim strFile
 
Dim objDestFolder
 
Dim lngCurrSize
 
Dim objFolderItems
Dim objFolderItem
 
 
arrFiles = Array( _
    "D:\Install\Mozilla Firefox\Mozilla Firefox 28.0\Firefox Setup 28.0.exe", _
    "D:\Install\Mozilla Firefox\Mozilla Firefox 28.0\FirefoxPortable_28.0_Russian.paf.exe", _
    "D:\Install\Mozilla Firefox\Mozilla Firefox 33.0.2\Firefox Setup 33.0.2.exe", _
    "D:\Install\Mozilla Firefox\Mozilla Firefox 33.0.2\FirefoxPortable_33.0.2_Russian.paf.exe" _
)
 
strFTPFolder = "ftp://User:Password@my.ftpserver.com/DestFolder"
 
 
Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("Shell.Application")
 
Set objDestFolder = objShell.NameSpace(strFTPFolder)
 
If Not objDestFolder Is Nothing Then
    For Each strFile In arrFiles
        If objFSO.FileExists(strFile) Then
            WScript.Echo strFile, "--->", objDestFolder.self.Path
            
            lngCurrSize = -1
            
            objDestFolder.CopyHere strFile
            
            Do Until lngCurrSize = objFSO.GetFile(strFile).Size
                Set objFolderItems = objDestFolder.Items
                
                objFolderItems.Filter SHCONTF_NONFOLDERS + SHCONTF_INCLUDEHIDDEN, "*.*"
                
                For Each objFolderItem In objFolderItems
                    If objFolderItem.Name = objFSO.GetFileName(strFile) Then
                        lngCurrSize = objFolderItem.Size
                    End If
                Next
                
                WScript.Sleep 100
                
                Set objFolderItems = Nothing
            Loop
        Else
            WScript.Echo "Can't find source file [" & strFile & "]."
        End If
    Next
Else
    WScript.Echo "Can't connect into FTP folder [" & strFTPFolder & "]."
    WScript.Quit 2
End If
 
Set objShell = Nothing
Set objFSO   = Nothing
 
WScript.Quit 0