VB有关问题,超级初学者加白痴新手(从来都没写过的刚买了本VB才开始看)，想写一个小程序，希望能够完成以下功能。求指导
VB问题,超级菜鸟加白痴新手(从来都没写过的刚买了本VB才开始看)，想写一个小程序，希望能够完成以下功能。求指导。
程序段包含的功能基本上就是文件同步.通过 "文件时间信息(GetFileTime?) "和 "文件大小信息(GetFileSize?) ",以及文件是否存在这三项进行判断.判断后,将需要同步的文件拷贝到目标目录.
-------------------------------------------------------
基本思路如下：
1.从 "源路径 "以生成一个列表文件的方式,将 "源路径 "下的所有文件的信息读取并保存下来(应该包含1.文件时间信息(FTime1) 2.文件大小信息(FSize1) 3.文件路径及文件名(FPath1,格式例如:X:\XXX\XXX.XXX)).假设该文件名为FileA.同样的根据 "目标路径 "也生成这么一个文件.假设文件名为FileB,包含的信息为FTime2/FSize2/FPath2.
2.将FileA文件与FileB文件进行对比判断.将判断结果保存到一个文件(假设文件名为:FileC,而该文件中只要包含文件的 "源路径 "/ "目标路径 "和一个判断标记就可以.).最后按照FileC中的记录.对文件进行操作.
--------------------
判断中的思路如下:(分四种情况,进行两次判断.)
1.首先是文件是否存在判断,分为以下三种:一, "源路径 "有而 "目标路径 "没有,判断标记为C(拷贝).二, "源路径 "没有而 "目标路径 "有,判断标记为D(删除).三, "源路径 "有而 "目标路径 "也有,那么进行第二次判断.
2.执行第二次判断.判断条件为将FTime1/FSize1与FTime2/FSize2(后面标记为2的两个变量为 "目标路径 "中的文件,那么同样也要生成 "目标路径 "下的所有文件的一个表格,假设文件名为FileB,同样包含FTime/FSize/FPath三项信息)进行对比,产生以下两种结果:一,两组变量都一致,那么判断标记为U(不操作).二,判断结果为不一致(两者只要有一个不一致就算),那么判断标记为C(拷贝).
----------------------
那么最后,根据FileC中的信息,对文件执行U(不操作)/C(拷贝)/D(删除)等操作,对于判断标记为U的,可以不保存,这样可以缩短程序运行时间.而对于判断标记为C或D的文件,根据FPath1和FPath2来执行操作.例如:FileCopy_FPath1_FPath2 或 Kill_FPath2 来拷贝和删除.
----------------------
综上所述,由于小弟没学过编程,如何才能用VB语言实现以上的功能,希望大家能够给予指导和帮助,提出一些建议或思路,当然也可以有其他的思路,只要能完成以上功能,至于实现功能的方法不限制,但要求是用VB(我全部的学习编程的资料就一本23.00元的VB程序自学书).
至于其中的根据文件大小/日期等信息用生成文件来进行文件对比啊,用FileCopy/Kill来执行操作啊这些,都可以提出其他的思路和实现方法,只要程序跑得好,用API或用VB自己提供的语句都可以.不知道API有没有比较好用的方法来实现文件相关信息(指文件大小,文件日期与时间,文件是否存在等)的对比.
------------------------
总之,希望能够得到大家的指导和帮助.小弟初学编程,又是第一次发帖,有些地方如果看不明白,请指出来.我等候大家的回复.谢谢.感激不尽.
------解决方案--------------------
建议：
1 源文件和目标文件列表没有必要用文件保存，用不可见的 ListBox 控件会更快速方便。
2 既然日期和大小之一不相同就更新，可以将两项合成一个参数，比较更加方便。
'Put 2 ListBox on your form, which named as lstSrc and lstDst
Declare Function CreateFile Lib "kernel32 " Alias "CreateFileA " (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Private Declare Function GetFileTime Lib "kernel32 " Alias "GetFileTime " (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Declare Function SendMessagebyString Lib _
"user32 " Alias "SendMessageA " (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Const LB_FINDSTRINGEXACT = &H1A2 '在 ListBox 中精确查找
Private Sub Update_File(Byval strSrcPath As String, Byval strDstPath As String)
Dim strFilename As String
Dim CreationTime AS FILETIME, AccessTime AS FILETIME, WriteTime AS FILETIME
Dim lngFileFlag As Long, hFile As Long, i As Integer, lngIndex As Long
'Get source files
strFilename = Dir(strSrcPath & "\*.* ")
Do Until strFilename = " "
hFile = CreateFile(strFilename, GENERIC_READ, _
FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
Call GetFileTime (hFile, CreationTime, AccessTime As FILETIME, WriteTime)
程序段包含的功能基本上就是文件同步.通过 "文件时间信息(GetFileTime?) "和 "文件大小信息(GetFileSize?) ",以及文件是否存在这三项进行判断.判断后,将需要同步的文件拷贝到目标目录.
-------------------------------------------------------
基本思路如下：
1.从 "源路径 "以生成一个列表文件的方式,将 "源路径 "下的所有文件的信息读取并保存下来(应该包含1.文件时间信息(FTime1) 2.文件大小信息(FSize1) 3.文件路径及文件名(FPath1,格式例如:X:\XXX\XXX.XXX)).假设该文件名为FileA.同样的根据 "目标路径 "也生成这么一个文件.假设文件名为FileB,包含的信息为FTime2/FSize2/FPath2.
2.将FileA文件与FileB文件进行对比判断.将判断结果保存到一个文件(假设文件名为:FileC,而该文件中只要包含文件的 "源路径 "/ "目标路径 "和一个判断标记就可以.).最后按照FileC中的记录.对文件进行操作.
--------------------
判断中的思路如下:(分四种情况,进行两次判断.)
1.首先是文件是否存在判断,分为以下三种:一, "源路径 "有而 "目标路径 "没有,判断标记为C(拷贝).二, "源路径 "没有而 "目标路径 "有,判断标记为D(删除).三, "源路径 "有而 "目标路径 "也有,那么进行第二次判断.
2.执行第二次判断.判断条件为将FTime1/FSize1与FTime2/FSize2(后面标记为2的两个变量为 "目标路径 "中的文件,那么同样也要生成 "目标路径 "下的所有文件的一个表格,假设文件名为FileB,同样包含FTime/FSize/FPath三项信息)进行对比,产生以下两种结果:一,两组变量都一致,那么判断标记为U(不操作).二,判断结果为不一致(两者只要有一个不一致就算),那么判断标记为C(拷贝).
----------------------
那么最后,根据FileC中的信息,对文件执行U(不操作)/C(拷贝)/D(删除)等操作,对于判断标记为U的,可以不保存,这样可以缩短程序运行时间.而对于判断标记为C或D的文件,根据FPath1和FPath2来执行操作.例如:FileCopy_FPath1_FPath2 或 Kill_FPath2 来拷贝和删除.
----------------------
综上所述,由于小弟没学过编程,如何才能用VB语言实现以上的功能,希望大家能够给予指导和帮助,提出一些建议或思路,当然也可以有其他的思路,只要能完成以上功能,至于实现功能的方法不限制,但要求是用VB(我全部的学习编程的资料就一本23.00元的VB程序自学书).
至于其中的根据文件大小/日期等信息用生成文件来进行文件对比啊,用FileCopy/Kill来执行操作啊这些,都可以提出其他的思路和实现方法,只要程序跑得好,用API或用VB自己提供的语句都可以.不知道API有没有比较好用的方法来实现文件相关信息(指文件大小,文件日期与时间,文件是否存在等)的对比.
------------------------
总之,希望能够得到大家的指导和帮助.小弟初学编程,又是第一次发帖,有些地方如果看不明白,请指出来.我等候大家的回复.谢谢.感激不尽.
------解决方案--------------------
建议：
1 源文件和目标文件列表没有必要用文件保存，用不可见的 ListBox 控件会更快速方便。
2 既然日期和大小之一不相同就更新，可以将两项合成一个参数，比较更加方便。
'Put 2 ListBox on your form, which named as lstSrc and lstDst
Declare Function CreateFile Lib "kernel32 " Alias "CreateFileA " (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Private Declare Function GetFileTime Lib "kernel32 " Alias "GetFileTime " (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Declare Function SendMessagebyString Lib _
"user32 " Alias "SendMessageA " (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Const LB_FINDSTRINGEXACT = &H1A2 '在 ListBox 中精确查找
Private Sub Update_File(Byval strSrcPath As String, Byval strDstPath As String)
Dim strFilename As String
Dim CreationTime AS FILETIME, AccessTime AS FILETIME, WriteTime AS FILETIME
Dim lngFileFlag As Long, hFile As Long, i As Integer, lngIndex As Long
'Get source files
strFilename = Dir(strSrcPath & "\*.* ")
Do Until strFilename = " "
hFile = CreateFile(strFilename, GENERIC_READ, _
FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
Call GetFileTime (hFile, CreationTime, AccessTime As FILETIME, WriteTime)