Not sure if this was what you were looking for, but it's an option. I had
used the attached vbs script (rename it with a .vbs extention) before with a
button using a ACTIVE LINK RUN PROCESS in Remedy to auto-create a folder. I
passed the $caseid$ to create the subfolder name then it opened the folder
for the user. Obviously the $USER$ would need to have access to create the
folder.
Thanks
Steve
On 4/30/07, Mayfield, Andy L. <[EMAIL PROTECTED]> wrote:
Is there a way to have ARS create a folder on a network drive
through workflow? I've been searching through the documentation, but
haven't found what I am looking for.
Thanks,
Andy L. Mayfield
System Operation Specialist
Alabama Power Company
Office: 8-226-1805
_______________________________________________________________________________
UNSUBSCRIBE or access ARSlist Archives at www.arslist.org ARSlist:"Where
the Answers Are"
_______________________________________________________________________________
UNSUBSCRIBE or access ARSlist Archives at www.arslist.org ARSlist:"Where the Answers
Are"
If WScript.Arguments.Count = 0 Then
Wscript.Echo "Usage: CScript.exe createdir.vbs CASEID"
WScript.Quit
End If
' replace the below server path to your own or remove it all and just keep use
the Arguments input.
CreateFolder("\\server\folder1\folder2\" & Wscript.Arguments(0))
Function CreateFolder(folderName)
On Error Resume Next
Dim aFolders: aFolders = Split(folderName,"\")
Dim i
Dim currentFolder
Dim oFSO: Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
For i = LBound(aFolders) to UBound(aFolders)
currentFolder = currentFolder & aFolders(i) & "\"
If NOT oFSO.FolderExists(currentFolder) Then
oFSO.CreateFolder(currentFolder)
End If
Next 'i
If oFSO.FolderExists(folderName) Then
CreateFolder = True
Else
CreateFolder = False
End If
Set s=CreateObject("WScript.Shell")
s.Run(currentFolder)
End Function
