Declare Function DocumentProperties Lib "winspool.drv" _ Alias "DocumentPropertiesA" _ (ByVal hWnd As Long, _ ByVal hPrinter As Long, _ ByVal pDeviceName As String, _ pDevModeOutput As Any, _ pDevModeInput As Any, _ ByVal fMode As Long) As Long
Private Sub serFtpFile(strPath As String, lFtpSession As Long) Dim lFindSession As Long Dim lRs As Long Dim tmpFileInfo As WIN32_FIND_DATA Dim strTmp As String
If lFindSession <> 0 Then Do mFtpFileNum = mFtpFileNum + 1 ReDim Preserve mFtpFileInfo(mFtpFileNum) As WIN32_FIND_DATA mFtpFileInfo(mFtpFileNum) = tmpFileInfo
If tmpFileInfo.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then DoEvents