.. after some files are selected...they can be sent to a batch... the batch recalls the files and recharges a predefined command for them ...
any help with this will be great!
TIA
This post has been edited by sweept: 08 March 2008 - 09:55 PM
Posted 06 March 2008 - 05:10 AM
This post has been edited by sweept: 08 March 2008 - 09:55 PM
Posted 06 March 2008 - 07:24 AM
Posted 06 March 2008 - 10:00 AM
This post has been edited by sweept: 08 March 2008 - 05:24 PM
Posted 08 March 2008 - 03:52 PM
This post has been edited by sweept: 08 March 2008 - 05:25 PM
Posted 08 March 2008 - 07:19 PM
Quote
Option Explicit
Dim Act :Set Act = CreateObject("Wscript.Shell")
Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
Dim F1, F2, F3, F4, F5, ParentFolder, Ts
Dim A1
A1 = vbCrLf & "------------------------------" & vbCrLf
If WScript.Arguments.Count = 0 Then
MsgBox "Error: This Needs At Least One Foldr Drop On This," & vbCrLf & _
"Script To Be Able To List It Sub Folder",4128,"Error No File"
Else
For Each F1 In WScript.Arguments
If Right(InStr(F1,"."),5) Then
'-> If You Want To List Files Only Code Here
Else
'-> List Contents Of Parent Folder
Set ParentFolder = Fso.GetFolder(F1)
'-> Open The Text File
Set Ts = Fso.CreateTextFile(ParentFolder.Name & ".txt")
Ts.WriteLine " Start Time " & Time() & A1
F4 = F4 & ParentFolder.Path & A1
For Each F2 In ParentFolder.Files
F4 = F4 & F2.Name & vbCrLf
Next
F4 = F4 & A1
'-> List Contents Of Parent Sub Folder
For Each F3 In ParentFolder.SubFolders
F4 = F4 & F3.Path & A1
For Each F5 In F3.Files
F4 = F4 & F5.Name & vbCrLf
Next
Next
End If
Next
End If
Ts.WriteLine F4
Ts.Close()
Act.Run(Chr(34) & ParentFolder.Name & ".txt" & Chr(34)),1,True
Posted 08 March 2008 - 11:14 PM
Posted 09 March 2008 - 07:28 AM
@echo off & setlocal for %%# in (%*) do call set var=%%~nx# %%var%% echo:%var% pause & goto :eofLet me know if this is what you wanted!
Posted 09 March 2008 - 10:09 AM