FSO и INI или копирование файла по имени - VB

Формулировка задачи:

Опять прошу помощи. Есть код...
Private Sub Command6_Click()
Log Now & "Перемещение пришедших документов" & vbCrLf
File4.Refresh
 
Dim Push As Long
Dim fso As FileSystemObject
 
Push = MsgBox("Скопировать документы!", 49, "Вы уверены!!!")
 
If Push = 1 Then
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile sGetINI(App.Path & "\armops.ini", "Main", "PATHUPDATE", "None"), "C:\Temp"
Else
MsgBox "Как хотите....", 0, "Отмена"
 
End If
 
File1.Refresh
File2.Refresh
File3.Refresh
File4.Refresh
 
End Sub
Все нормально, но нужно как-то сделать вроде этого
fso.MoveFile "D:\SKSDATA\Prpi\OS211720\Out\Эксп*.*", "C:\Temp"
Т.е. что бы была маска, но в то же время и путь ini. Что то вроде как File msk

Код к задаче: «FSO и INI или копирование файла по имени - VB»

textual
fso.MoveFile sGetINI(App.Path & "\armops.ini", "Main", "PATHUPDATE", "None") & "Эксп*.*", sGetINI(App.Path & "\armops.ini", "Main", "PATHAKSTABL", "None")
fso.MoveFile sGetINI(App.Path & "\armops.ini", "Main", "PATHUPDATE", "None") & "стп*.*", sGetINI(App.Path & "\armops.ini", "Main", "PATHSTPSMK", "None")
fso.MoveFile sGetINI(App.Path & "\armops.ini", "Main", "PATHUPDATE", "None") & "Инстр*.*", sGetINI(App.Path & "\armops.ini", "Main", "PATHINSTR", "None")

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ