【结贴】如何获取服务端文件夹路径**

wj0623

采用IP+文件夹路径的方式，来定位服务器文件夹位置。如何实现，代码？谢谢！@

atiger

知道本地怎么定位吗？只有前面加上ip就可以了，例如到192.168.1.26 的 temp目录
\\192.168.1.26\temp

wj0623

这个我知道，需要一段代码！！！谢谢！！！比如我需要将一个文件数据文件通过拷到指定机器上的一个共享目录！！！

gaihl

直接用就可以了吧
如: CopyFile('c:\bootbak.ini', '\\192.168.1.3\Share\bootbak.ini', False);
(Borland.Delphi.Windows)

wj0623

如果是直接将文件copy到指定目录：
如CopyFile('c:\bootbak.ini', '\\192.168.1.3\Share\, False); 不用指定copy文件名字只给出文件夹，代码又是怎么呢？谢谢

gaihl

用SHFileOperation可以吧
具体方法参考
http://blog.csdn.net/aniven/archive/2007/05/19/1616361.aspx

wj0623

SHFileOperation delphi中的使用 举个例子呢？谢谢@

wj0623

var
     SHFileOpStruct:TShFileOpStruct;
      FromDirChar;
      ToDirChar;
begin
   if  OpenDialog1.Execute then
         FromDir:=OpenDialog1.FileName+#0;
         ToDir:='\\10.0.0.1\file\';
         with SHFileOpStruct do
         begin
          //wnd:=application.Handle;
          pFrom:=pchar(FromDir);
          pTo:=pchar(ToDir);
          wFunc:=FO_COPY;

          fFlags:=FOF_ALLOWUNDO   or   FOF_NOCONFIRMATION;
          FAnyOperationsAborted:=False;
          hNameMappings:=nil;
          lpszProgressTitle:='文件复制中';

帮忙看看这个代码有什么问题！！！

wj0623

没人了？？？？

gaihl

大概是这样的用法
var
  SHFILEOPSTRUCTA : Borland.Delphi.ShellAPI._SHFILEOPSTRUCTA;
begin
  SHFILEOPSTRUCTA.Wnd := HWND_DESKTOP;
  SHFILEOPSTRUCTA.wFunc := FO_COPY;
  SHFILEOPSTRUCTA.pFrom := 'c:\aa.txt';
  SHFILEOPSTRUCTA.pTo := 'c:\boot\aa.txt';
  SHFILEOPSTRUCTA.fFlags := FOF_FILESONLY;
  SHFILEOPSTRUCTA.fAnyOperationsAborted := True;
  SHFILEOPSTRUCTA.lpszProgressTitle := '正在复制...';
  Borland.Delphi.ShellAPI.SHFileOperation(SHFILEOPSTRUCTA);
end;