smidgie82
asked on
See hidden file extensions in VBScript
I have a script to enumerate the files in a directory, and dump the names to a text file, which is passed to the Windows FTP.exe program using the -s option. The script works great when I run it from the command line. I need to schedule it to run automatically under a different account, though -- the SQL Server Agent account, if it makes a difference. When run under that account, the script fails to include file extensions in the output. How can I get around this? I don't have privileges to modify the environment for the account under which it has to run. Is there a way to get around the explorer settings and retrieve the file extension? I've tried an alternate implementation using WMI, but enumerating the files that way takes about 1000 times longer than using Shell.Application.
<package>
<job id="ftp">
<script language="VBScript">
Dim user, pass, server, local_path, remote_path
user="Admin"
pass="*******"
server="ftp_server"
local_path="file_path"
remote_path="remote_path"
' Create a temp file to hold the script
Dim fso, ofile, fname
Set fso=CreateObject("Scripting.FileSystemObject")
fname=fso.GetTempName()
Set ofile=fso.CreateTextFile("C:\temp\" & fname)
' Output login credentials to the script
ofile.WriteLine("open " & server)
ofile.WriteLine(user)
ofile.WriteLine(pass)
ofile.WriteLine("cd """ & remote_path & """")
Dim app, objFolder, colItems, i
Set app = CreateObject("Shell.Application")
Set objFolder = app.Namespace(local_path)
Set colItems = objFolder.Items
' This section finds the most recently-created replication directory.
' They're named according to date and time, so it suffices to just find the one with the greatest name, lexicographically speaking
Dim latest
latest=""
For i = 0 to colItems.Count - 1
If ((colItems.Item(i).Name > latest) And (colItems.Item(i).IsFolder)) Then
latest = colItems.Item(i).Name
End If
Next
Set colItems = Nothing
Set objFolder = Nothing
' set script to create this directory on the FTP server, and change to it
ofile.WriteLine("mkdir " & latest)
ofile.WriteLine("cd """ & latest & """")
' now enumerate the files in the local directory of interest, and dump them to the output file
local_path = local_path & "\" & latest
Set objFolder=app.Namespace(local_path)
Set colItems = objFolder.Items
For i = 0 To colItems.Count - 1
If (Not colItems.Item(i).IsFolder) Then
' Here's where the problem is. Neither of the following two approaches works. Maybe something using WMI?
'ofile.WriteLine("put """ & local_path & "\" & colItems.Item(i).Name & """")
ofile.WriteLine("put """ & local_path & "\" & objFolder.GetDetailsOf(colItems.Item(i), 0) & """")
End If
Next
ofile.WriteLine("quit")
ofile.Close()
Set ofile=Nothing
Set fso=Nothing
Set colItems = Nothing
Set objFolder = Nothing
Set app = Nothing
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "c:\windows\system32\ftp.exe -v -s:" & fname, , True
Set objShell = Nothing
Set fname = Nothing
</script>
</job>
</package>
ASKER
I tried this, using GetBaseName + "." + GetExtensionName instead of FolderItem.Name, but all I get is the filename (sans extension) with a period after it. Apparently GetExtensionName is returning an empty string. ?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I'm out of town, so I'm unable to test this, but I'll try it out as soon as I get back on Monday.
ASKER
Interesting... After much trial and error, here's where I'm at:
FolderItem.Path returns the full path, including extension.
fso.getExtensionName(Folde rItem.Path ) returns the extension correctly
fso.getExtensionName(Folde rItem) returns an empty string when running as the system account, but returns the extension correctly when running under my user account
FolderItem.Name returns the filename sans extension when running as the system account, but returns the filename with extension under my account
After going to explorer and checking the option for "hide file extensions for known file types", the behavior under my user account mirrors the behavior when run under the system account.
I finally get the behavior I want by using fso.GetBaseName(FolderItem .Path) & fso.GetExtensionName(Folde rItem.Path ). Irritating, but it works.
Thanks for your help.
FolderItem.Path returns the full path, including extension.
fso.getExtensionName(Folde
fso.getExtensionName(Folde
FolderItem.Name returns the filename sans extension when running as the system account, but returns the filename with extension under my account
After going to explorer and checking the option for "hide file extensions for known file types", the behavior under my user account mirrors the behavior when run under the system account.
I finally get the behavior I want by using fso.GetBaseName(FolderItem
Thanks for your help.
Glad to help get you a working solution. And thanks for the points.
http://msdn.microsoft.com/en-us/library/x0fxha2a(VS.85).aspx
Open in new window