VBÖжÔstringµÄ²Ù×÷
ÆäÖÐfromDirectoryNameÊÇÔ´ÎļþĿ¼Ãû£¬toDirectoryNameÊÇÄ¿µÄĿ¼Ãû
Dim filePath1 As String = fromDirectoryName + "\" + myFile
Dim filePath2 As String = toDirectoryName + "\" + myFile
File.Move(filePath1, filePath2)
Dim filePath1 As String = fromDirectoryName & "\" & myFile
Dim filePath2 As String = toDirectoryName & "\" & myFile
File.Move(filePath1, filePath2)
¶¼±¨´í¡±ÎÞ·¨Ê¶±ðµÄ·¾¶¡°
ÔÚVBÖжÔstring ¡±+¡°ÔËËã·ûÆðʲô×÷Ó㿺͡±&¡°Ò»Ñù£¿
ΪʲôÎÒ·¾¶²»¶ÔÄÇ
¶ÔÓÚ×Ö·û´®À´Ëµ+ºÍ&ÔËËã·ûÊÇÒ»ÑùµÄ£¬Äãµ÷ÊÔµÄʱºò¿´Ò»ÏÂfilePath1ºÍfilePath2ÊÇ·ñÕýÈ·¡£
Dim fromDirectoryName As String = "d:"
Dim toDirectoryName As String = "e:"
Dim myfile As String = "Test.xls"
Dim filePath1 As String = fromDirectoryName + "\" + myFile
Dim filePath2 As String = toDirectoryName + "\" + myfile
File.Move(filePath1, filePath2)
³öÀ´´íÎóÁË£º
For Each myFile As String In fileArray
' remove directory path from file name
fileName = myFile.Substring(myFile.LastIndexOf(".") + 1)
Ïà¹ØÎÊ´ð£º
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......