VBA ½Æ»sÀɮרì¥t¤@¥x¹q¸£

warhead

½Ð°Ý

F = "C:\test.txt"

F2 = "\\192.168.1.1\text\"

Set fs = CreateObject("Scripting.FileSystemObject")
     fs.CopyFile F, F2
Set fs = Nothing

¦¹®É·|¥X²{Åv­­¤£¨¬¡A­ì¦]¬°°Ïºô»Ý­n±b¸¹±K½Xµn¤J¡C

½Ð°Ý§Ú¦p¦óª½±µµ¹»P±b¸¹±K½X¡A¨ÏÀÉ®×¥i¥H¶¶§Q½Æ»s¹L¥h?

warhead

¦^´_ 2# GBKEE

G¤j±z´£¨Ñªº¬Oºô­¶ªºµn¤J¤è¦¡¡A¬Ý°_¨Ó¦n¹³¬O¥h§äinputªºÄæ¦ì¶ñ¤W¡A

§Ú¬O§Q¥ÎºôªÚ­n§âÀÉ®×¥á¨ì¥t¤@¥x¹q¸£­ù¡A¥Lª½±µ¸õ¥XÅv­­¤£¨¬¡A

¨S¦³¥X²{§Ú¥i¥H¿é¤J±K½Xªº¦a¤è¡A©Ò¥HºN¤£µÛÀYºü­n±q¦ó¤U¤â¡C

warhead

¦^´_ 4# jackyq

J¤j¡A¦b¬õ¦â¨º¤@¦æ·|¥X²{§ä¤£¨ì¸ô®|¡A
¦ý§Úª½±µ±qÀÉ®×Á`ºÞªº¦a¤èµ¹\\192.168.1.1 ·|¥X²{­n§Ú¿é¤J±b¸¹±K½X¡A³o¼Ë¥Nªí¸ô®|À³¸Ó¨S°ÝÃD¹ï§a?

Dim Directory as Object
ServerShare = "\\192.168.1.1\test"
UserName = "test"
Password = "test"

Set NetworkObject = CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")

NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password

Set Directory = FSO.GetFolder(ServerShare)
For Each FileName In Directory.Files
    WScript.Echo FileName.Name
Next

Set FileName = Nothing
Set Directory = Nothing
Set FSO = Nothing

NetworkObject.RemoveNetworkDrive ServerShare, True, False

Set ShellObject = Nothing
Set NetworkObject = Nothing

warhead

¦^´_ 6# jackyq


J¤j¡A¨Ï¥Î§Aªº¤è¦¡¦b¦Û¤v¹q¸£´ú¸Õ¦¨¥\¡A¦b¦^¨ì°Ïºô¤W´ú¸Õ¡Aµo²{¦b¬O¸ê®Æ§¨¦@¥Î¨S³]©w¦n

¦A¦¸·PÁ±zªºÀ°¦£¡AÁÂÁÂ