2 svar · 199 visningar · startad av ironhead
Detta har jag hittat:
dim objFSO,objFolder,objFile
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
set objFolder=objFSO.GetFolder(server.mappath("word2html"))
for each objFile in objFolder.Files
'## Kod för att hitta alla *.doc filer och flytta dom till en annan nätverksenhet
next
set objFile=Nothing
set objFolder=Nothing
set objFSO=Nothing
Hur skriver man för att lista alla doc-filer och flytta dom från en server till en annan?
Kanske så här?
objFSO.CopyFile "från", "till"
'alt.
objFSO.MoveFile "från", "till"
Fast man kan göra så här, utan "for each"
objFSO.CopyFile "c:\inetpub\mojo*.*", "till"
I "till" argumentet anger du sökvägen till servern där du vill spara, namn alt. drive.
/T
------------------
WRITE_PORT_ULONG(devExt->Mymessage,SMART_WRITE_ACK);
ååååh! tack så mycket Toonster!!!