ÆäÖÐfromDirectoryNameÊÇÔ´ÎļþĿ¼Ãû£¬toDirectoryNameÊÇÄ¿µÄĿ¼Ãû
Dim filePath1 As String = fromDirectoryName + "\" + myFile
Dim filePath2 As String = toDirectoryName + "\" + myFile
File.Move(filePath1, filePath2)
Dim filePath1 As String = fromDirectoryName ......
ÎÒÐèÒª×öÒ»¸öVBµÄÊý¾ÝͨÐųÌÐò£¬Ò»Ì¨Ö÷»ú£¬ÆäËûÈô¸Ę́¿Í»§»ú¡£Ö÷»úÓë¿Í»§»ú·Ö±ð½øÐÐʵʱµÄÊý¾ÝͨÐÅ£¬¿Í»§»ú½«Ã¿ÌìµÄµÇ¼ÇÊý¾Ý¼°Ê±´«Ë͸øÖ÷»ú£¬Ö÷»úÊÕµ½Êý¾Ýºó·¢È·ÈÏÐÅÏ¢£¬¿Í»§»ú²ÅÄܽøÐÐÏÂÒ»´ÎÊý¾Ý´«ËÍ¡£¿Í»§»úÔÚÒ»Ìì½áÊøÊ±ÔÙÏòÖ÷»ú·¢ËÍÒ»Ìõ½ñÌì´«ËÍÊý¾ÝµÄ×ÜÊý£¬Ö÷»ú½øÐк˶ԡ£
mark
ÒýÓÃ
winsock+tcp
ÎÒÊÔ¹ ......
ÎÒµÄÎÊÌâÊÇÔõÑùÓÃVB»Ö¸´IPΪ×Ô¶¯»ñµÃ,»òDNS»Ö¸´Îª×Ô¶¯»ñµÃ.Çë½ÌVBר¼ÒÃÇ.
vbµÄûÕÒµ½¡£
vbsµÄÓÐÒ»¶Î£¬Ã»ÊÔ¹ý¡£
ÊÔÊÔÈçÏ´úÂ룺PS£ºÃ»²âÊÔ
¿¼ÂÇ·½Ïò£ºµ÷ÓÃWindowsÃüÁî¡£
VB code:
Dim strIPShell As String
Dim strDNSShell As String
Dim a As Long
strIPShell = "cmd /c N ......
vb ÈçºÎ ´«µÝ ¿Ø¼þÊý×é £¿
ÎÒÓÐÒ»¸öcheckbox()¿Ø¼þÊý×éindex 0,1,2
´«µÝ¿Ø¼þÎÒÖªµÀ£¬µ«ÎÒÏë´«µÝ¿Ø¼þÊý×é £¬²»ÖªÈçºÎʵÏÖ£¿ Çë½Ì¸÷λ~~
'ÒÔÏ´úÂ뱨´í
Private Sub Command1_Click()
Dim strLevelAdapt As String
strLevelAdapt = ""
& ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ßÊÖ¶àÖ¸½Ì£¬ÏÈл¹ýÁË£¡
ÔõôûÈ˰¡
°æÖ÷£¬¾ÈÃñ°¡
ÐèÒªÒ»Ò»ÉùÃ÷.
µ«ÊǶ¯Ì¬¿â×÷Õ߿϶¨»áÓÐÉùÃ÷·Å³öÀ´µÄ ......
ÎÒ¿´Á˸ü»»Îļþ¼Ðͼ±êµÄͬÀàÈí¼þ£¬Ã²Ëƶ¼Óõ½ÁËdll£¬²¢ÇÒÔÚ×¢²á±í[HKEY_LOCAL_MACHINE\Software\Microsoft\Shellex\Extensions\ContextMenus]Ìí¼ÓÁËÏà¹ØÏî¡£×¢²á±í²»ÄѸ㶨£¬¾ÍÊÇÄǸödllÊÇ·ñÄÜÖ±½ÓÒýÓÃÈ˼ҵ쬻ò×Ô¼º¸ÃÔõô×ö£¿
ÈçͼËùʾ
Õâ¸öÃ²ËÆÓеãÄÑŶ£¬¹Ø×¢Â¥Ö÷ÖС£¡£¡£¡£¡£¡£
shell com
ҪרÃÅÑо¿ ......