mapping af Netværks drev

shell "net use q: \\host\upload"

:)

/Jennemaan

Dim obj, Connect, str

On Error Resume Next
Set obj = WScript.CreateObject("Scripting.FileSystemObject")
str = obj.GetDrive("f:").ShareName
if (str = "") then
Set Connect = WScript.CreateObject("WScript.Network")
    Connect.MapNetworkDrive "F:", "\\Server\Share\Shared Folder"
set Connect = nothing
end if
Set obj = Nothing

Eller hvis du vil promptes for hvilket drev du vil bruge, så prøv som forklaret på http://vbxzone.tripod.com/Api/08a1.html

Snowball

Jennemaan det var lige hvad jeg skulle bruge, tak! :_)